Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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