Quit Method Example

This example saves all open presentations and then quits PowerPoint.

With Application
    For Each w In .Presentations
        w.Save
    Next w
    .Quit
End With