Show Error Number : Error « Language Basics « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Language Basics
3. Error

Show Error Number

 

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

 

Related examples in the same category