Try this code, below, ( right click the sheet and select view code, and
paste it there). You will have to fiddle with the ColorIndex number shown
here as 35 until you get the colour you want. I think the number range goes
to about 50 or so.
You may want to delete this part......
"If Target.Cells.Count > 1 Then Exit Sub" part if it's not what you want,
( this part stops the procedure if more than one cell is selected at one
time.)
You may also want to alter the Range which I've set to A1:Z100
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wkArea As Range
Set wkArea = Range("A1:Z100")
If Target.Cells.Count > 1 Then Exit Sub
With wkArea.Interior
.ColorIndex = 0
End With
With ActiveCell.Interior
.ColorIndex = 35
End With
End Sub
Rob