Find last column with data?

[Myles]

Okay guys so i tried to convert some code i found for last Row with text in
it..

Function LastColumn(Row As String)
LastColumn = Range(Columns.Count & Row).End(xlToRight).Column
End Function

But i get an error when trying to use it

Does anybody know how to convert this to get the last column with text with
the Row is supplied?

Thanks!!

 

[Mike H]

Hi,

Try this

LastCol = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column

the 2 represents row 2 so change to suit

Mike

 

[Myles]

I'm sorry, i meant last COLUMN that has text in it on one specific row. So
basically i know what row i want to look on, i just need to find out which
column it is and convert it to the letter.

Thanks!!

 

[Don Guillett]

try it this way
Function LastColumn(x)
LastColumn = Cells(x, Columns.Count).End(xlToLeft).Column
End Function