To avoid the user being prompted, set the Saved property of the Presentation object to True before using the Close method-for example:
Sub save() With Presentations("Your PPT.ppt") .Saved = True .Close End With End Sub