Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A5")) Is Nothing Then
Range("D5").Interior.ColorIndex = 5
Range("A5").Interior.ColorIndex = xlNone
End If
If Not Application.Intersect(Target, Range("D5")) Is Nothing Then
Range("A5").Interior.ColorIndex = 6
Range("D5").Interior.ColorIndex = xlNone
End If
End Sub