Public Sub SelectLastCell() Dim aRange As Range Dim LastRow As Integer Dim lastColumn As Integer Set aRange = Range("A1").SpecialCells(xlCellTypeLastCell) LastRow = aRange.Row lastColumn = aRange.Column MsgBox lastColumn End Sub