Check the Path property of the Presentation object before using the Save method if you need to determine whether the presentation has been saved
Sub saveAs() If ActivePresentation.Path = "" Then ActivePresentation.SaveAs FileName:="C:\C.ppt" Else ActivePresentation.Save End If End Sub