Domine o Excel ® (3 em 1): Excel - 70 Fórmulas Incríveis, Excel - 51 Macros incríveis e 51 Dicas e Truques Incríveis

Private Sub WorksheetSelectionChange(ByVal Target As Range)
Dim LocalSelect As String
With Target
If .Count = 1 Then
LocalSelect = .Address & "," & .row & ":" & .row & "," &
Left(.Address, InStr(2, .Address, "$") - 1) & _
":" & Left(.Address, InStr(2, .Address, "$") - 1)
End If
End With
On Error Resume Next
Range(LocalSelect).Select
End Sub