Powerpoint VisualBasic Script

Sub close()
    ActivePresentation.Close
End Sub