In diesem Beispiel wird eine neue Arbeitsmappe erstellt. Danach wird der Benutzer aufgefordert, einen Dateinamen einzugeben; anschließend wird die Arbeitsmappe gespeichert.
Set NewBook = Workbooks.Add Do fName = Application.GetSaveAsFilename Loop Until fName <> False NewBook.SaveAs Filename:=fName