I've seen this from Bob Phillips:

'-----------------------------*------------------------------*-----
Private Sub WorkSheet_SelectionChange(ByVa*l Target As Range)
'-----------------------------*------------------------------*-----


Cells.FormatConditions.Delete
With Target.EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.*ColorIndex = 35
End With
With Target.EntireColumn
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.*ColorIndex = 35
End With
With Target
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.*ColorIndex = 36
End With


End Sub

How can I restrict it to specific range - Range("J5:S55")

--
David