Sub TestResumeNext() On Error Resume Next Kill "AnyFile" If Err.number = 0 Then Else MsgBox "the Error Was: " & Err.Description End IfEnd Sub