Still thinking Conditional Formatting is the way to go (even with
automation), how about this:


Sub FlagPositive()
With Columns("I:I")
..FormatConditions.Delete
..FormatConditions.Add _
Type:=xlCellValue, _
Operator:=xlEqual, _
Formula1:="=""Positive"""
..FormatConditions(1).Interior.ColorIndex = 44 'Orange
background
End With
End Sub


Does that help?

Ron


--
Ron Coderre
------------------------------------------------------------------------
Ron Coderre's Profile: http://www.excelforum.com/member.php...o&userid=21419
View this thread: http://www.excelforum.com/showthread...hreadid=385747