Hi crmpicco,

If you want a VBA solution, try this

Sub LastOne()
Dim Last As Range
Set Last = [A1].SpecialCells(xlCellTypeLastCell)
MsgBox "Column " & Last.Column & " is the last column" '< msgbox example
Columns(Last.Column).Select '< select example
End Sub
HTH,
John