Saving a Copy of a Presentation
Sub saveCopy() ActivePresentation.SaveCopyAs FileName:="C:\Copy 1.ppt" End Sub