Finding Last Column in a row

[alien3011]

Hi,

I am not sure how to find the last column in a row using excel macro programming.

What I need to do is, to find the last column of row 1,

For example, I am using row 1 as my cursor, i start from column "G", and i don't know where the last column in row 1 is...

I have used lastrow but not sure how to use lastcolumn
the codes i used for last row is

Sheet1LastRow = ThisWorkbook.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

 

[Z51]

Hi alien3011,

Try:

Sheets("Sheet1").Range("IV1").End(xlToLeft).Column

 

[Richard Schollar]

To make Paul's more generic (ie so it will work in xl2007) you could re-write to:

Dim lngLastCol As Long
lngLastCol = Sheets("Sheet1").Cells(1,Columns.Count).End(xlToLeft).Column

This actually may not find the last column (ie if the last column eg IV1 is populated with data) in which case you could use:

With Sheets("Sheet1")
  lngLastCol = .Cells(1,1).EntireRow.Find(What:="*",After:=.Cells(1,1),SearchDirection:=xlPrevious).Column
End With

This will only fail if row 1 is entirely blank.