Error trap : Kill « File Path « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. File Path
3. Kill

Error trap

 
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

 

Related examples in the same category