GetSaveAsFilename dialog box is hidden

[almagg]

the potx file is open then the dialog gets hidden behind it

.
.
strPPTFile = Application.GetOpenFilename("PowerPoint Files (*.potx), *.potx")
oPPTApp.Visible = msoTrue
Set oPPTFile = oPPTApp.Presentations.Open(strPPTFile)
Set oPPTFile = oPPTApp.ActivePresentation
oPPTFile.SaveAs Application.GetSaveAsFilename(fileFilter:="PowerPoint((*.pptx),*.pptx")
.
.

 

[almagg]

oops i thought i fixed it but no luck.