Every day Dose of Excel ,
Windows 7 Starter Key HP Laptop Battery, Laptop Battery for HP
Daily posts of Excel tips…and other stuff
Sub SelectAdjacentCol()
Dim rAdjacent As Range
If TypeName(Selection) = "Range" Then
If Selection.Column > 1 Then
If Selection.Cells.Count = 1 Then
If Not IsEmpty(Selection.Offset(0, -1).Value) Then
With Selection.Offset(0,
Office Home And Business 2010 Key, -1)
Set rAdjacent = .Parent.Range(.Cells(1), .End(xlDown))
End With
Selection.Resize(rAdjacent.Cells.Count).Select
End If
End If
End If
End If
End Sub