try

Sub IfCellMatch()
On Error Resume Next
For Each c In [a2:a14]
x = Sheets("data").Range("b1:b21").Find(c)
If c = x Then MsgBox c
Next
End Sub


--
Don Guillett
SalesAid Software
Granite Shoals, TX

"Cesar Zapata" wrote in message
...
Hi,

is seems simple but I cant get it to work.


this is what I'm trying to do in a module.



dim cell as range

for each cell in range ("a2:a200")


if cell.value = any cell on the second sheet range (b1 to b50 ) then


do whatever



next cell.



what is the right code to check if the current cell value is equal to any
cell in the second sheet range b1 to b50?


Thanks for your help.