Help with For Each ..... Next Loop

[abdul hafeel]

I have a named ranges
eg
Range1 ="A1:C10" & Range2 = "A1:B1"

I need to find if the value in Range2 occurs in Range1.
I Ran the following code but it doesn't work. Pls help

Dim a, b, k As Integer
k = 0
a = 0
Do Until a = Range2.Columns.Count
b = 0
Do Until b = Range1.Rows.Count
For Each Range2(a+1, b+1) In Range1(a + 1, b + 1)
If p = pRange1(a + 1, b + 1) Then
k = k + 1
End If
Next Range2(a+1, b+1)
b = b + 1
Loop
a = a + 1
Loop

MsgBox k

 

[Von Pookie]

What are you trying to do here? This is not coded correctly, whatever it is:

For Each Range2(a+1, b+1) In Range1(a + 1, b + 1)

Can't you just use COUNTIF?