In diesem Beispiel wird die aktive Arbeitsmappe gespeichert.
ActiveWorkbook.Save
In diesem Beispiel werden alle geöffneten Arbeitsmappen gespeichert. Anschließend wird Microsoft Excel beendet.
For Each w In Application.Workbooks w.Save Next w Application.Quit