Application.ActivePresentation (PowerPoint)

Returns a Presentation object that represents the presentation open in the active window.

If an embedded presentation is in-place active, the ActivePresentation property returns the embedded presentation.

MyPath = Application.Path & "\TestFile"

Application.ActivePresentation.SaveAs MyPath