Sub close() Do While ActivePresentation.Windows.Count > 1 ActivePresentation.Windows(ActivePresentation.Windows.Count).Close Loop End Sub