on error msg box help
 

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 error msg box help
 

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 error msg box help
 

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?