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