
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
Application.EnableEvents = False
Set a = Union(Rows(Target.Row), Columns(Target.Column))
a.Select
Target.Activate
Application.EnableEvents = True
End If
End Sub |
