400 error excel vba!

[ae211830]

I keep getting a 400 error when running the code below. This only happens if the code goes to error handler and is then repeated immediately after. Any ideas why?



Public Sub OpenDrawing()


StopVLookup = True


Dim partno As String
On Error GoTo errorhandler


partno = Cells(ActiveCell.row, 1)
ActiveWorkbook.FollowHyperlink "\\192.168.1.202\MechDesign\All RoBAT Drawings\" & partno & ".pdf"
StopVLookup = False


Exit Sub


errorhandler:
MsgBox "Can't Find Drawing"
StopVLookup = False




End Sub

 

[ranman256]

It means the object is not set. (not value variables)
right before the last line END SUB
put
EXIT SUB
RESUME

When the error happens, hit CTL-BREAK
debug
right click on the RESUME
SET NEXT STATEMENT
press F8 (to move 1 step ) and it will show you the bad line.