Save dialog in ppt

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.
[vba]
Set PPT = CreateObject("Powerpoint.Application")
With PPT.FileDialog(msoFileDialogSaveAs)
.InitialFileName = *(file location private)*
.AllowMultiSelect = False
.Show
End With[/vba]
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?

The following opens a new presentation in PowerPoint and saves it with the name Test

[VBA]Dim PPT As Object
Dim PPP As Object
Set PPT = CreateObject("Powerpoint.Application")
Set PPP = PPT.presentations.Add
PPP.SaveAs "C:\Users\Doug\Documents\Test"[/VBA]

If you don't want to hard code the name, you could use and InputBox to have the user enter it.