If a cell contains a string out of a list of strings.

[lu fim]

Hello.
I need a code to go trough a list and check each cell if they contain a string out of a list of possible strings (around 30 dif strings). If the cel do not contain any of those strings than paint the cell. I tryed something here, but its not working.

Code:
Sub Verificação_Comentário()
Dim rw As Long, LR As Long


LR = Range("A" & Rows.Count).End(xlUp).Row

For rw = 3 To LR

If InStr(1, Range("J3" & rw).Value, "AGUARDANDO REVISÃO", vbBinaryCompare) Then


ElseIf InStr(1, Range("J3" & rw).Value, "ATENDIDO", vbBinaryCompare) Then

ElseIf InStr(1, Range("J3" & rw).Value, "ATENDIDO ECODE", vbBinaryCompare) Then


ElseIf InStr(1, Range("J3" & rw).Value, "ATENDIDO PVE", vbBinaryCompare) Then


Else
Range("J3" & rw).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With


End If


Next rw
End Sub

End code.


I cut some strings out to shorten the post.

[lu fim]

I want it to start on row 3, but i dont know why it keeps on starting to check from row 33.

[DBY]

Hello
Perhaps you could adapt a loop, for example:

Please Login or Register  to view this content.

This would loop through A2:A10 and check against (with another loop) the strings in G2:G6, all on Sheet1. This then fills the cells yellow if a match is found.

DBY