Adjusted for your new criteria:

Dim rng as Range
set rng = Worksheets("OtherSheet").Range("C:C").Find( _
Range("A22"))
if not rng is nothing then
Range("E25").copy Destination:=rng.offset(0,19)
Else
msgbox Range("A22") & " supplier no was not found"
End if


--
Regards,
Tom Ogilvy

"shanman_lmtd " wrote in
message ...
Thank-you Deberah,

I'm stilll suck with the solution of my problem so if anyone can help
please help me!!!!!

Many many thanks.


---
Message posted from http://www.ExcelForum.com/