ChDir Verz
Application.Dialogs(xlDialogSaveAs).Show ("Auftraege" & Format(Date, "DDMM") & ".xls")
Danke für euere Hilfe Peter
Sub Wechsle()
ChDrive ("O:")
ChDir ("O:\Dokumente")
Application.GetSaveAsFilename "Auftraege" & Format(Date, "DDMM") & ".xls"
End Sub
Gruss