Highlight Cells That Contain Specific Text or Keyword

[patel]

Option Compare Text

Sub a()
LR = Cells(Rows.Count, "H").End(xlUp).Row
For j = 1 To LR
  If InStr(Cells(j, "H").Text, "Cash") > 0 Then
    Cells(j, "H").Interior.ColorIndex = 6
  End If
Next
End Sub