Powerpoint VisualBasic Script

Sub save()
    With Presentations("Your PPT.ppt")
        .Saved = True
        .Close
    End With
End Sub