Why not just use Conditional Format?

To do the VBA:

Range("").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue,
Operator:=xlEqual, Formula1:="=""Pass Msg"""
Selection.FormatConditions(1).Font.ColorIndex =
Selection.FormatConditions(1).Interior.ColorIndex =


--
Bearacade


------------------------------------------------------------------------
Bearacade's Profile: http://www.excelforum.com/member.php...o&userid=35016
View this thread: http://www.excelforum.com/showthread...hreadid=573849