Hi, this worked for me!

Sub promisefind()
Dim rng As Range
Dim mycell
Set rng = Range("A:C")
For Each mycell In rng
If mycell.Value = "Promise" Then
mycell.Select
With Selection
mycell.Interior.ColorIndex = 35
mycell.Interior.Pattern = xlSolid
End With

End If
Next mycell
End Sub


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=553243