Additional requirement to VBA for Coloring in row cell.

[Livin404]

Greetings,

The following VBA works perfecting proving there are no addition text the cell. I can I tweak it just a little to it will highlight anytime the word Local is in the cell no matter if there is data in front or back? 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
  End If
Next

End Sub

 

[Joe4]

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 InStr(UCase(cell.Value), "LOCAL") > 0 Then
     Range(Cells(cell.Row, "A"), Cells(cell.Row, "E")).Interior.ColorIndex = 6
  End If
Next

End Sub

 

[Livin404]

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 InStr(UCase(cell.Value), "LOCAL") > 0 Then
     Range(Cells(cell.Row, "A"), Cells(cell.Row, "E")).Interior.ColorIndex = 6
  End If
Next

End Sub

Perfect thank you.

 

[Joe4]

You are welcome.