Private Sub CommandButton1_Click()
ActivePresentation.Save
ActivePresentation.Close
End Sub