Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Select first to last row

Sub SelectFirstToLastInRow()     Set LeftCell = Cells(ActiveCell.Row, 1)     Set RightCell = Cells(ActiveCell.Row, 256)     If IsEmpty(LeftCell) Then Set LeftCell = LeftCell.End(xlToRight)     If IsEmpty(RightCell) Then Set RightCell = RightCell.End(xlToLeft)     If LeftCell.Column = 256 And RightCell.Column = 1 Then ActiveCell.Select Else Range(LeftCell, RightCell).Select End Sub