how to format a row based on a cell's contents

[rbachellor]

I am writing a macro that colors the entire row based on one cell's contents in that row.

It works when I match the entire cell contents using indirect

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=INDIRECT(""C""&ROW())=""[Ready to run] """
Selection.FormatConditions(1).Interior.ColorIndex = 4

Is there a way to modify this using InStr or something like that to test if the cell contains the word "Ready" and still get the same results?

Thanks

 

[AlphaFrog]

Example code...

If InStr(1, ActiveCell.Value, "Ready", vbTextCompare) > 0 Then
   [COLOR="Green"] ' ActiveCell contains the word "ready" (not case sensitive)[/COLOR]
    ActiveCell.EntireRow.Interior.ColorIndex = 4
Else
   [COLOR="Green"] ' ActiveCell doesn't contain the word "ready"[/COLOR]
    ActiveCell.EntireRow.Interior.ColorIndex = 0
End If