You won't be able to use a Select statement, but you probably can use a For
Each, depending on what you're really trying to do.

Sub find_match()
Dim rngT as Cell
For Each rngT in Range("VV")
If cell.value = rngT.value Then
counter = counter + 0
Else
ActiveCell.Interior.Color = 6
counter = counter + 1
End If
Next rngT
End Sub

Hope this helps
By the way, why bother incrementing the counter by 0?

"JT" <anonymous@discussions.microsoft.com> wrote in message
news:011e01c504aa$7e66e0b0$a501280a@phx.gbl...
> 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