<div>
Hi englishman<br />
<br />
This code will save all open presentations<br />
<br />
Sub CloseAll()<br />
Dim w As Object<br />
With Application<br />
&nbsp; &nbsp; For Each w In .Presentations<br />
&nbsp; &nbsp; &nbsp; &nbsp; w.Save<br />
&nbsp; &nbsp; Next w<br />
<br />
hope it helps<br />
antrat<br />
&nbsp; &nbsp; .Quit<br />
End With<br />
End Sub<br />
<br />

</div>


Hi englishman

This code will save all open presentations

Sub CloseAll()
Dim w As Object
With Application
    For Each w In .Presentations
        w.Save
    Next w

hope it helps
antrat
    .Quit
End With
End Sub



<div>
<div class="content wysiwyg-content">
My end show button uses the application.quit command to get out of powerpoint completely - but, it doesn't prompt to save changes to any presentaions already open. It doesn't save any changes and closes everything.<br />
I need to prompt to save.
</div>
</div>


My end show button uses the application.quit command to get out of powerpoint completely - but, it doesn't prompt to save changes to any presentaions already open. It doesn't save any changes and closes everything.
I need to prompt to save.

powerpoint application.quit

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.