Error is because Find() failed to Set c

try...

With Sheets("Stock sheet")
Set c = .Range("A:A").Find(myStr)
If Not c Is Nothing Then Application.Goto .Range("F" & c.Row)
End With

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion