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