Powerpoint VisualBasic Script

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