Sub saveAs() If ActivePresentation.Path = "" Then ActivePresentation.SaveAs FileName:="C:\C.ppt" Else ActivePresentation.Save End IfEnd Sub