Simple Code not working for me

[jeffreylewis]

Hi Guys

Can anoyone see what is wrong with this code?
Its showing the message box every time even on the good urls and does not Exit Sub as required
Thanks

Private Sub CmdView_Click()
On Error GoTo ErrorHandler
Application.FollowHyperlink txtUrl
ErrorHandler:
MsgBox "Dodgy Url Link on Target site", vbCritical, "Oops!"
Me.txtUrl.SetFocus
DoCmd.RunCommand acCmdCopy
Exit Sub
End Sub

 

[Gasman]

You are just falling through the code.

WALK YOUR CODE TO SEE WHAT IT DOES, not what you think it does.

 

[MajP]

Exit sub needs to be before errorhandler. If not the code will always enter it.

 

[jeffreylewis]

Exit sub needs to be before errorhandler. If not the code will always enter it.

I feel a right dummy not seeing that. Thank you very much Majp