Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim icolor As Integer
On Error Resume Next ' Cells.FormatConditions.Delete
icolor = 3
With Target.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = icolor
End WithEnd Sub