VBA Save file to user desktop, close existing file and open saved file?

[John Wilson]

Try this.

If you need the macro preserved use pptm instead of pptx

Sub do_that()
Dim opres As Presentation
Set opres = ActivePresentation
ActivePresentation.SaveCopyAs Environ("USERPROFILE") & "\Desktop\copy.pptx"
Presentations.Open Environ("USERPROFILE") & "\Desktop\copy.pptx"
opres.Close
End Sub