Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pc&, dc$, pl&, dl&
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = 0
With Target.CurrentRegion
pl = .Range("A1").Row
dl = CLng(Split(.Address, "$")(4))
pc = .Range("A1").Column
dc = Left(Split(.Address(0, 0), ":")(1), 1)
End With
With Target
Range(Cells(.Row, pc), Cells(.Row, dc)).Interior.ColorIndex = 8
Range(Cells(pl, .Column), Cells(dl, .Column)).Interior.ColorIndex = 8
End With
Application.ScreenUpdating = True
End Sub