I have a section in a procedure where I have put in words what I am trying to do. I have
a named range of unique text entries in a single column, about 16 values. What I am
trying to do is identify if any of the range of cells being looped as below have any of
the values in that range and then act acoordingly. I know I could probably use a hole
range of case arguments but it seemsa sledgehammer to crack a nut. Is there a VBA function
that can do this? I appreciate any help

Set rng = Range("A15:A30")
For n = 1 To 200
If (Cells(n, 18).value (is equal to any of the text values in rng ) Then
Statements etc

Kind Regards,
Graham