Hi,

I am trying to format a cell by using code on vb6. I have three cells but all I want to do is format the centre on to have wrap text active and set a height and with for it. Is there anyway I can alter the code below to do this?

Code:
        For intCol = 1 To TheCols
            oSheet.Columns(intCol).AutoFit
            'wsXL.Columns(intCol).AutoFormat (1)
            oSheet.Range("a1", Right(oSheet.Columns(TheCols).AddressLocal, _
                                   1) & TheRows).AutoFormat GridStyle
        Next
Thanks
pmelia07