Range in an array instead of multiple variables

[nicolewh]

I would like to place a range (table2) in an array within a macro instead of multiple variables. Here is the macro so far:

Sub  Test()
Dim LR As Long, i As Long
CountryColumn = xl_Col(Range("Table1[Column2]").Column)
LR = Range(CountryColumn & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    Rows(i).Hidden = IsError(Application.Match(LCase(Range(CountryColumn _
& i).Value), Array("Pink", "White"), 0))
Next i
End Sub

I would like something similar to this instead:

Sub  Test()
Dim LR As Long, i As Long
CountryColumn = xl_Col(Range("Table1[Column2]").Column)
LR = Range(CountryColumn & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    Rows(i).Hidden = IsError(Application.Match(LCase(Range(CountryColumn _
& i).Value), Array(Range("Table2")), 0))
Next i
End Sub

(Of course above doesn't work for some reason )
To help you better understand the variables "Pink" and "White" are included in table2. Here is table2:
Column1
Pink
White


Possible? I hope!

Thanks

Nicole

 

[VoG]

Very clever coding in exhibit #1

Try (untested and assuming that Table 2 is a named range)

Sub Test()
Dim LR As Long, i As Long
CountryColumn = xl_Col(Range("Table1[Column2]").Column)
LR = Range(CountryColumn & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    Rows(i).Hidden = IsError(Application.Match(LCase(Range(CountryColumn _
& i).Value), Range("Table2")), 0)
Next i
End Sub

 

[nicolewh]

Thank you!. Thats what I needed. You are my Excel hero! haha