Sub ErrorTrap2() Dim Answer As Long, MyFile As String Dim Message As String, currentPath As String On Error GoTo errTrap MyFile = "A:\Data.xls" Application.DisplayAlerts = False ActiveWorkbook.SaveAs FileName:=MyFile Exit Sub errTrap: MsgBox Err.Description End Sub