SaveAs in powerpoint

[penfold1992]

Im running a macro from excel which opens a powerpoint, inserts a bunch of graphs and texts and then to end the macro I want to open up a "Save As" window.

Set PPT = CreateObject("Powerpoint.Application")
With PPT.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = *(file location private)*
    .AllowMultiSelect = False
    .Show
End With

this is the code I am using and it appears to work but when I hit the save button... it doesnt seem to save at all for some reason.
does anyone have any idea as to why it doesnt save?