FIND STRING IN RANGE and FORMAT Cell

[jamada]

Trying to find the text "XLD XLD" and format row accordingly, not having much luck, appreciate the assistance.

Dim i As Long
For i = Lastrow To 1 Step -1
If Cells(i, 1) = “XLD” Then '‘ You can change this text
Range(Cells(i, 2), Cells(i, 5)).FontStyle = "Bold"
Range(Cells(i, 2), Cells(i, 5)).Interior.Color = RGB(255, 255, 0)
Range(Cells(i, 2), Cells(i, 5)).Font.Color = RGB(255, 0, 0)

End If
nexti

Thanks Graham

 

[alansidman]

Replace this line in your code

[COLOR=#333333]If Cells(i, 1) = “XLD” Then [/COLOR]

with

If instr(cells(i,1),"XLD") >0 Then

 

[jamada]

Thank You Very Much Mr. Alansidman, works like a dream!!!
Graham