Solved: Click to color

[Sorin Sion]

Try this, included in the sheet's code (not in workbook's code, not in a module):

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Select Case Target.Address
Case "$A$1"
  Target.Interior.Color = RGB(255, 0, 0)
  Range("B1").Interior.Color = RGB(255, 255, 255)
  Range("C1").Interior.Color = RGB(255, 255, 255)
Case "$B$1"
  Target.Interior.Color = RGB(255, 127, 0)
  Range("A1").Interior.Color = RGB(255, 255, 255)
  Range("C1").Interior.Color = RGB(255, 255, 255)
Case "$C$1"
  Target.Interior.Color = RGB(0, 255, 0)
  Range("A1").Interior.Color = RGB(255, 255, 255)
  Range("B1").Interior.Color = RGB(255, 255, 255)
End Select
End Sub