Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Use ActiveCell End to select a range

Sub ColumnSelect()   Range(ActiveCell, ActiveCell.End(xlDown)).Select End Sub