Office Standard 2010 Sale Daily Dose of Excel Blo

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