Excel 97 & VBA Runtime Error 1004 with Find

[Nickd]

I am getting a runtime error 1004
Unable toget the find property of the range class
on the following line

Set c = Worksheets("ListSTB").Range("A1:A100").Find
(Riferimento, LookIn:=xlValues)


This works great the first time but not subsequently.
Additionally, it works great all the time in Excel2000 and
above.

Can anyone help?

Thanks in advance

 

[Frank Kabel]

Hi
try
on error resume next
Set c = Worksheets("ListSTB").Range("A1:A100").Find
(Riferimento, LookIn:=xlValues)
on error goto 0
if c is nothing then
msgbox "nothing found"
end if