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

[RayKay]

Hi John, yes the folder C:\MyFolder exists. I tried the code with the \ but still stayed as if the code wasn't there. It puts the selected slides into a new file, as wanted, named Presentation# (without .pptx and not saved); Save As opens the default folder (i.e. Libraries > Documents). Thank you.

[John Wilson]

It works here.

Is OldPPT SAVED and is it a pptm?

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

[RayKay]

OMG you are a VBA Guru!!!

THANK YOU!!

I used:

  Next x

  Call NewPPT.SaveAs("C:\MyVault\ " & OldPPT.Name)
  
Exit Sub
err:
MsgBox "Please select slides in an open presentation and then save to your personal vault.  You MUST have a folder C:\MyFolder"


End Sub

Have a wonderful weekend! Will mark this as solved.