Read user choice when dealing with error : Error Handler « Language Basics « VBA / Excel / Access / Word

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

Read user choice when dealing with error

 

Public Sub ErrorTrap1()
  Dim Answer As Long, MyFile As String
  Dim Message As String, CurrentPath As String
  
  On Error GoTo errTrap
  CurrentPath = CurDir$
  
  ChDrive "A"
  ChDrive CurrentPath
  ChDir CurrentPath
  MyFile = "A:\Data.xls"
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs Filename:=MyFile
TidyUp:
  ChDrive CurrentPath
  ChDir CurrentPath
Exit Sub
errTrap:
  Message = "Error No: = " & Err.Number & vbCr
  Message = Message & Err.Description & vbCr & vbCr
  Message = Message & "Please place a disk in the A: drive" & vbCr
  Message = Message & "and press OK" & vbCr & vbCr
  Message = Message & "Or press Cancel to abort File Save"
  Answer = MsgBox(Message, vbQuestion + vbOKCancel, "Error")
  If Answer = vbCancel Then Resume TidyUp
  Resume
End Sub

 

Related examples in the same category