Sub find_match()
counter = 0
For Each cell In Range("A1:A10")
Select Case True
Case Not IsError(Application.Match(cell, Range("VV"), 0))
counter = counter + 0
Case Else
ActiveCell.Interior.ColorIndex = 6
counter = counter + 1
End Select
Next
Range("B1") = counter
End Sub


--
Regards,
Tom Ogilvy


"JT" wrote in message
...
Instead of listing all of the valid values, I would like
to use a range name in a case select statement. Is this
possible. Following is the code I'm using without much
success. "VV" is the name of the range that contains the
values I want to check against.

Sub find_match()

Select Case cell

Case ("VV")
counter = counter + 0

Case Else

ActiveCell.Interior.ColorIndex = 6
counter = counter + 1

End Select

End Sub

Thanks for the help