Hi

Try the following
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, tr As Long
Set rng = Range("A1:A4")
If Not Intersect(Target, rng) Is Nothing Then
tr = Target.Row
rng.Interior.ColorIndex = xlNone
Select Case tr
Case 1
Target.Interior.ColorIndex = 3
Case 2
Target.Interior.ColorIndex = 4
Case 3
Target.Interior.ColorIndex = 44
Case 4
Target.Interior.ColorIndex = 41
Case Else
End Select
End If
End Sub

--
Regards
Roger Govier

"goneil" wrote in message
...
Dear Excel community,

I have put a border around cells A1, A2, A3, A4.

Just by clicking in a cell I would like "just" that cell to go:

A1 to go Red, A2 Green, A3 Amber, A4 Blue.

When I click in a cell set the other 3 cells to blank

Thank you to the bright spark that can figure this out.

Cheers
George

__________ Information from ESET Smart Security, version of virus
signature database 4527 (20091020) __________

The message was checked by ESET Smart Security.

http://www.eset.com




__________ Information from ESET Smart Security, version of virus signature database 4527 (20091020) __________

The message was checked by ESET Smart Security.

http://www.eset.com