Sub Datei_speichern()
 Const Pfad = "C:\test\Meier.xls" 
 On Error GoTo Errorhandler
 ActiveWorkbook.SaveAs (Pfad)
 Exit Sub
Errorhandler:
 MsgBox "Der Ordner wurde nicht gefunden"
End Sub