Place your words in a helper column, in my example it is column A in a helper
worksheet named "pattern", set the backgrond color of cells to the required
color for the word in them, and run this macro:

Sub szinez()
Dim colD As Range
noofrows = Columns("D:D").End(xlDown).Row
Set colD = Range("D2:D" & noofrows)
For Each dcell In colD
hit = WorksheetFunction.Match(dcell.Value,
Worksheets("pattern").Columns("A:A"), 0)
colorno = Worksheets("pattern").Range("A" & hit).Interior.ColorIndex
dcell.EntireRow.Interior.ColorIndex = colorno
Next dcell
End Sub

Regards,
Stefi


€žbijan€� ezt Ã*rta:

Hi all,
could someone please help me to write a vb code with SELECT CASE or IF
statment? I have a sheet with about 5000 rows (A2:K5000)and use some words
like XTT,YBB,NZZ,USS,...(about 10 words) in column D .
what I need to do is each row that contain these word have spetial color in
list for example:
.....................D..............
.....................NZZ.......... red
.....................XTT......... blue
Thanks in advance