Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Use ActiveCell SpecialCells(xlLastCell)

Sub SelectActiveArea()     Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select End Sub