Adapt VBA to save selected slides to a default folder with the original file name

[John Wilson]

It works here.

Is OldPPT SAVED and is it a pptm?

You probably need to change SaveCopyAs to a simple SaveAs too.