Placing a Resume Next Statement in Your Error Handler
Sub TestResumeNextInError()
On Error GoTo TestResumeNextInError_Err
Kill "AnyFile" If Err.number = 0 Then
Else
msgBox "We Didn't Die, But the Error Was: " & Err.Description End If
Exit Sub
TestResumeNextInError_Err:
Resume Next End Sub