Macro to check for the existence of part of a word

[kerlj001]

I have a macro which highlights a row a particular colour based on matching a word in a column on that row.

'13 Urgency
Cells(intRow, cUrgency).Value = tmpUrgency
If tmpUrgency = "HIGH" Then
Rows(intRow & ":" & intRow).Interior.ColorIndex = 6
Rows(intRow & ":" & intRow).Interior.Pattern = xlSolid

End If
What I want to do is then check for the existence of part of a word 'xpedite' in a different column and make that red. This code doesnt work

If tmpBrief = "*Expedite*" Then
Rows(intRow & ":" & intRow).Interior.ColorIndex = 3
Rows(intRow & ":" & intRow).Interior.Pattern = xlSolid

Any help appreciated

 

[pgc01]

Hi

Try:

If tmpBrief Like "*Expedite*" Then

Remark: the Like operator is, by default case sensitive. If you want it not case sensitive add at the beginning of the module "Option Compare Text" or use UCase() or LCase()

 

[kerlj001]

thnx

 

[Weaver]

As an aside:

Rows(intRow & ":" & intRow).Interior.ColorIndex = 3

can be replaced with

Rows(intRow).Interior.ColorIndex = 3