I'm looking for help on how to close the active presentation only.
If I use .close, the gray window stays open (because the ppt application didn't close).
If I use .quit, then all open PPT Applications exit out.
How can I cleanly just save and quit the active presentation with a single click?

This code Saves the PPTM if any changes have been made and then .Quits, but the problem is that it will also close all other open PowerPoints. 

Sub SaveAndQuit ()
With Application.ActivePresentation

    If Not .Saved And .Path <> "" Then .Save

End With

Next
PowerPoint.Application.Quit

End Sub
Thank You For Your Time!