The following code will return a message box whether or not an error
results from running the macro... what gives?

Sub test()
On Error GoTo errr
Range("a2").Value = Range("A1") / Range("B1")
errr: MsgBox "error", vbOKOnly, Error
End Sub

You have to do something else if no error. Exiting is an option.

Sub test()
On Error GoTo errr
Range("a2").Value = Range("A1") / Range("B1")
Exit Sub
errr: MsgBox "error", vbOKOnly, Error
End Sub


Gord Dibben MS Excel MVP

On Wed, 18 Nov 2009 11:41:02 -0800 (PST), Matthew Dyer
wrote:

The following code will return a message box whether or not an error
results from running the macro... what gives?

Sub test()
On Error GoTo errr
Range("a2").Value = Range("A1") / Range("B1")
errr: MsgBox "error", vbOKOnly, Error
End Sub

On Nov 18, 1:29*pm, Gord Dibben <gorddibbATshawDOTca wrote:
You have to do something else if no error. *Exiting is an option.

Sub test()
* * On Error GoTo errr
* * Range("a2").Value = Range("A1") / Range("B1")
* * Exit Sub
errr: * * MsgBox "error", vbOKOnly, Error
End Sub

Gord Dibben *MS Excel MVP

On Wed, 18 Nov 2009 11:41:02 -0800 (PST), Matthew Dyer



wrote:
The following code will return a message box whether or not an error
results from running the macro... what gives?

Sub test()
On Error GoTo errr
Range("a2").Value = Range("A1") / Range("B1")
errr: MsgBox "error", vbOKOnly, Error
End Sub- Hide quoted text -

- Show quoted text -

The only reason the msg box doesnt appear with the exit sub command is
because the sub is exited before the msgbox command is reached. can
anyone please explain why a msgbox command in an on error goto command
brings up a msgbox whether or not an error occurs? Would putting this
in a if iserror statement make it work?