Add additional condition to an existing Macro.

[Livin404]

Greetings, I have the following Macro which works flawlessly in hi-lighting a row if it contains a specific word or phrase.

Sub Local_BACKGROUND()
    Sheets("72 Hr").Select
    endrow = Range("E" & Rows.Count).End(xlUp).Row

For Each cell In Range("E3:E" & endrow)
  If cell.Value = "LOCAL" Then
     Range(Cells(cell.Row, "A"), Cells(cell.Row, "E")).Interior.ColorIndex = 6
  End If
Next

End Sub

I would like the row to highlight if there is a different value in it. I tried simply as another piece to it, but it errored out on me. The piece I was trying to add was

If cell.Value = "CUST & AG REQ" Then
Range(Cells(cell.Row, "A"), Cells(cell.Row, "E")).Interior.ColorIndex = 44

I ended up with this code (below) which of course did not work. I could created a who new Macro but I have too many in this projec already. Thank You .

Sub Local_BACKGROUND()
Sheets("72 Hr").Select
endrow = Range("E" & Rows.Count).End(xlUp).Row
For Each cell In Range("E3:E" & endrow)
If cell.Value = "LOCAL" Then
Range(Cells(cell.Row, "A"), Cells(cell.Row, "E")).Interior.ColorIndex = 6
For Each cell In Range("E3:E" & endrow)
If cell.Value = "CUST & AG REQ" Then
Range(Cells(cell.Row, "A"), Cells(cell.Row, "E")).Interior.ColorIndex = 44
End If
Next
End Sub

 

[rlv01]

Maybe something like this?

Sub Local_BACKGROUND()
    Sheets("72 Hr").Select
    endrow = Range("E" & Rows.Count).End(xlUp).Row
    
    With Range(Cells(cell.Row, "A"), Cells(cell.Row, "E"))
        For Each cell In Range("E3:E" & endrow)
            If cell.Value = "LOCAL" Then
                .Interior.ColorIndex = 6
            End If
            
            If cell.Value = "CUST & AG REQ" Then
                .Interior.ColorIndex = 44
            End If
        Next cell
    End With
End Sub

 

[Livin404]

Thank you so much for the quick response. Unfortunately, I got an error , so I think you're very near it. Below is the message and what hilighted once I selected the "debug" button.

 

[rlv01]

Sorry, stupid mistake on my part. I should have paid better attention Try this.

Sub Local_BACKGROUND()
    Sheets("72 Hr").Select
    endrow = Range("E" & Rows.Count).End(xlUp).Row
    
    For Each cell In Range("E3:E" & endrow)
        If cell.Value = "LOCAL" Then
            Range(Cells(cell.Row, "A"), Cells(cell.Row, "E")).Interior.ColorIndex = 6
        End If
        If cell.Value = "CUST & AG REQ" Then
            Range(Cells(cell.Row, "A"), Cells(cell.Row, "E")).Interior.ColorIndex = 44
        End If
    Next cell
End Sub

 

[Livin404]

Sorry, stupid mistake on my part. I should have paid better attention Try this.

Sub Local_BACKGROUND()
    Sheets("72 Hr").Select
    endrow = Range("E" & Rows.Count).End(xlUp).Row
   
    For Each cell In Range("E3:E" & endrow)
        If cell.Value = "LOCAL" Then
            Range(Cells(cell.Row, "A"), Cells(cell.Row, "E")).Interior.ColorIndex = 6
        End If
        If cell.Value = "CUST & AG REQ" Then
            Range(Cells(cell.Row, "A"), Cells(cell.Row, "E")).Interior.ColorIndex = 44
        End If
    Next cell
End Sub

That works brilliantly, there is just one thing. Sometimes I may have multiple words with "Local" or "Cust & AG REQ", for example "LOCAL // EXPECT TO STEP" or "CUST & AG REQ // CARGO ACFT // EXPECT TO STEP". Isn't there something I can use so if it picks any of those two group of words that it will highlight accordingly. I thought inputting "CASE" somewhere in the formula may help. Thank you so much, you have gotten me so much closer, now I just need to be dragged across the finish line.

 

[rlv01]

If you change to use 'Select Case' you will be able to use a word list.

Sub Local_BACKGROUND()
    Sheets("72 Hr").Select
    endrow = Range("E" & Rows.Count).End(xlUp).Row
    
    For Each cell In Range("E3:E" & endrow)
        Select Case cell.Value
            Case "LOCAL", "LOCAL // EXPECT TO STEP", "Dog", "Ice Cream"
                Range(Cells(cell.Row, "A"), Cells(cell.Row, "E")).Interior.ColorIndex = 6
            Case "CUST & AG REQ", "CUST & AG REQ // CARGO ACFT // EXPECT TO STEP"
                Range(Cells(cell.Row, "A"), Cells(cell.Row, "E")).Interior.ColorIndex = 44
        End Select
    Next cell
End Su

b