Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Select active column

Sub SelectActiveColumn()     If IsEmpty(ActiveCell) Then Exit Sub     On Error Resume Next     If IsEmpty(ActiveCell.Offset(-1, 0)) Then Set TopCell = ActiveCell Else Set TopCell = ActiveCell.End(xlUp)     If IsEmpty(ActiveCell.Offset(1, 0)) Then Set BottomCell = ActiveCell Else Set BottomCell = ActiveCell.End(xlDown)     Range(TopCell, BottomCell).Select End Sub