If Debug then end with msgbox

[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

 

[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

 

[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