Path Property Example
This example saves the active presentation in the same folder as PowerPoint.
With Application fName = .Path & "\test presentation" ActivePresentation.SaveAs fName End With