VBA: Set range within If Statement

[FunsizedNerd]

Looking to apply conditional formatting to a row of cells (Active Cell -->) IF the value of the active cell is a certain value. This is what I have so far

For Each c In range1
    If c.Value = "MB" Then
    Set rg1 = range(c, range(c).End(xlToRight))
    With rg1
        .Font.Color = RGB(0, 153, 0)
    End With
Next

I want it to search a range (range1) by each cell (c) to see if the cell has a certain value. If it does, then I want to select the range from this cell to the right, and then apply conditional formatting to this row of cells (Note: isn't from column A, it's from column I -->)

 

[Norie]

Try this.

For Each c In range1
    If c.Value = "MB" Then
    Set rg1 = range(c, c.End(xlToRight))
    With rg1
        .Font.Color = RGB(0, 153, 0)
    End With
Next