Hi uplink600,

Here is the code I am using :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6
Target.Select
End Sub

HTH
Cheers
Carim