Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Select Last Cell

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