|
Public Sub ErrorTrap2()
Dim MyFile As String, Message As String
Dim Answer As String
On Error GoTo errorTrap
Workbooks.Add
MyFile = "C:\Data.xls"
Kill MyFile
ActiveWorkbook.SaveAs FileName:=MyFile
ActiveWorkbook.Close
Exit Sub
errorTrap:
Debug.Print "Error No: = " & Err.Number
Debug.Print Err.Description
Debug.Print "File does not exist"
Resume Next
End Sub
|