In diesem Beispiel werden alle geöffneten Arbeitsmappen gespeichert und Microsoft Excel anschließend beendet.
For Each w In Application.Workbooks w.Save Next w Application.Quit