Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Target.Column = 1 Then
If Not Intersect(Target, Rows(1)) Is Nothing Then
Target.Offset(1, 0).Interior.Color = vbGreen
Target.Offset(1, -1).Interior.Color = vbBlue
End If
End If
End Sub