Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Select active cell and up to the end

Sub SelectUp()     Range(ActiveCell, ActiveCell.End(xlUp)).Select End Sub