Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Select Active Area

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