Conditional formatting row based on cell value

See more:

MS-Excel

VBA

Hi Guys,

New to VBA, trying to automate a open orders report. My data set is A2 through X10999. If an order is late, then starting in J2 there will be text "LATE". If this is the case then I need the whole row to be formatted red. After a lot of Googling and debugging I have the following code that will color only the "late" cell red. I can not figure out how to get the whole row to be red.

Any help would be appreciated!

Sub ConditionalFormatting()

Dim MyRange As Range
'Create range object
Set MyRange = Range("A2:x10999")
'Delete previous conditional formats
MyRange.FormatConditions.Delete

'Add LATE rule
MyRange.FormatConditions.Add Type:=xlTextString, TextOperator:=xlContains, _
        String:="LATE"
MyRange.FormatConditions(1).Interior.Color = vbRed
'Add RISK rule
MyRange.FormatConditions.Add Type:=xlTextString, TextOperator:=xlContains, _
        String:="RISK"
MyRange.FormatConditions(2).Interior.Color = RGB(255, 153, 0)
'Add WATCH rule
MyRange.FormatConditions.Add Type:=xlTextString, TextOperator:=xlContains, _
        String:="WATCH"
MyRange.FormatConditions(3).Interior.Color = vbYellow


End Sub

What I have tried:

I have tried different variations and even thought that

MyRange.FormatConditions(1).Row.Interior.Color = vbRed

or

MyRange.FormatConditions(1).EntireRow.Interior.Color = vbRed

would work, however I get a "483" error if I try that.