Error number 0

[esreid]

Hello,
I am writing a macro in excel 2007, and receiving an error number 0 was raised after my code has ran.

The basic code is below:


Sub Customer_Sheet
On Error GoTo Errorhandler
Code operations run here

Errorhandler:
MsgBox "Error number" & Err.Number & "was raised." & vbCr & vbCR & Err.Description, vbCritical + vbOKOnly, "Error"

End Sub

I then receive the following error message "Error number 0 was raised.
From what I read error "0" is that the code ran without errors what needs to be changed to correct this.
Any Help would be appreciated.
Thanks

 

[MrKowz]

Try adding another label right before the End Sub, and tell the code to go to that label when it is successfully ran.

Sub Customer_Sheet
    On Error GoTo Errorhandler
Code operations run here
Goto Finish
 
    Errorhandler:
        MsgBox "Error number" & Err.Number & "was raised." &  vbCr & vbCR & Err.Description, vbCritical + vbOKOnly, "Error"
 
Finish:
End Sub

 

[esreid]

Thanks,
The code now runs with no error messages.

 

[MrKowz]

Thanks,
The code now runs with no error messages.

Glad it works. Thank you for the feedback.