Try this event sub:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex = 3 Then
Target.Interior.ColorIndex = 0
Else
Target.Interior.ColorIndex = 3
End If
End Sub

Post if you need help to install it!

Regards,
Stefi


€žjulene€� ezt Ã*rta:


I am using Excell 2007.
I am making a spreadsheet that is going to be used by a number of people. I
would like some of the cells to change colour when clicked on, without having
to enter any data, e.g. if the heading is 'native', the user would be able
to click on cells in the column and the cell would change colour to indicate
a 'yes' answer. If the same cell was then changed later to 'no' it could be
clicked on to return to the original colour.
I can change the colour if I enter a Y using conditional formatting, but
don't know how to change it if the cell is just clicked on.
Can you help please?