Thanks for the suggestion.
I had suspected that the problem required the sheet to be re-activated,
however I'm still experiencing the same problem after inserting
"Range("A1").Select before the exit sub line.
answer = Application.VLookup(UPCCode, myRange, 3, False)
' If the vlookup function returns #na because the UPC code is not in
the file then display
' a message and end the program
If IsError(answer) Then
Range("A1").Select
MsgBox ("The UPC code entered is not on file. Try searching by
vendor part # or description")
Exit Sub
End If
Regards
Jim Palmer
--
Jim Palmer
------------------------------------------------------------------------
Jim Palmer's Profile:
http://www.excelforum.com/member.php...fo&userid=5210
View this thread:
http://www.excelforum.com/showthread...hreadid=490740