If Debug then end with msgbox

I

ianripping

Is it possible to make a message appear if a debug message occurs, an
also depending on the type of debug, eg 'error 13
 
P

Papou

On Error GoTo Error_Handler
'instructions
Exit Sub

Error_Handler:
Select Case Err.Number
Case 13
MsgBox "This error is due to..."
Exit Sub
Case Else
Exit Sub
End Select

HTH
Regards
Pascal
 
M

Michel Pierron

Hi ianripping;
For example:

On Error GoTo Bug
' Your code

On Error GoTo 0
Exit Sub
Bug: MsgBox "Error " & Err.Number & vbLf & Err.Description & " !", 64
End Sub

Regards
MP
 
Top