Everyday Dose of Excel
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,
Office Standard 2010 Sale, -1).Value) Then
With Selection.Offset(0, -1)
Set rAdjacent = .Parent.Range(.Cells(1),
Microsoft Office Standard 2010 Microsoft Office 2010 Portable Black Edition with, .End(xlDown))
End With
Selection.Resize(rAdjacent.Cells.Count).Select
End If
End If
End If
End If
End Sub