Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Select active row

Sub SelectActiveRow()     If IsEmpty(ActiveCell) Then Exit Sub     On Error Resume Next     If IsEmpty(ActiveCell.Offset(0, -1)) Then Set LeftCell = ActiveCell Else Set LeftCell = ActiveCell.End(xlToLeft)     If IsEmpty(ActiveCell.Offset(0, 1)) Then Set RightCell = ActiveCell Else Set RightCell = ActiveCell.End(xlToRight)     Range(LeftCell, RightCell).Select End Sub