Thanks Bob

I thought I had tested thoroughly but guess not<g


Gord

On Sun, 20 Jul 2008 21:11:38 +0100, "Bob Phillips" wrote:

I think that will do the same Gord.

Dim objSht
Set objSht = ActiveSheet
With objSht
With .Range("C11")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=ISNUMBER(SEARCH(""KC""," &
ActiveCell.Address(False, False) & "))"
.Interior.ColorIndex = 43
End With
End With