error handling

[Interesting]

Hello, id like to know how to have a message box or something popup for a certain error, (for instance type 13)

Thanks for your help.

[Janaka]

Private Sub MySub()
    On Error GoTo errHandle
    
     ' your code
 
     Exit Sub
 
errHandle:
      
     Msgbox "Error"    
 
End Sub

[Interesting]

i tried that, but i want it for a specific type of error. for instance, error type 13.

[moinkhan]

Private Sub MySub()
    On Error GoTo errHandle
    
     ' your code
 
     Exit Sub
 
errHandle:
if Err.Number = 13 Then
     Msgbox "Error Occured: - 13 "
End If
End Sub