Solved: Find Last used Column

[swoozie]

I am looking for a way to find the last used column so I am able to insert text into the next empty column to the right.

[austenr]

From MWE's KB entry:

Function xlLastCol(Optional WorksheetName As String) As Long

' finds the last populated col in a worksheet

If WorksheetName = vbNullString Then WorksheetName = ActiveSheet.Name
With Worksheets(WorksheetName)
On Error Resume Next
xlLastCol = .Cells.Find("*", .Cells(1), xlFormulas, _
xlWhole, xlByColumns, xlPrevious).Column
If Err <> 0 Then xlLastCol = 0
End With

End Function

[swoozie]

Thank you!

[Cyberdude]

Here's an oversimplified technique that assumes the last column has a value in the row (CurrRow) that is searched:

Range("IV" & CurrRow).End(xlToLeft).Offset(0, 1).Select

Not elegant, but is useful sometimes.

[mdmackillop]

Don't forget SpecialCells
LastCol = Cells.SpecialCells(xlCellTypeLastCell).Column
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row

[swoozie]

Don't forget SpecialCells
LastCol = Cells.SpecialCells(xlCellTypeLastCell).Column
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
FYI, When I did this one (tried first) It gave me 256 as the answer