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.