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