Save Method Example
This example saves the active presentation if it's been changed since the last time it was saved.
With Application.ActivePresentation If Not .Saved And .Path <> "" Then .Save End With