so i have this code but it only 'shows' the dialog box.
it does not save or rather it saves as the default name, like "Presentation2"

Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog( _
Type:=msoFileDialogSaveAs)
dlgSaveAs.Show

In Excel I can pick up the name the user saves e.g.

strMyFile = Application .GetSaveAsFinename(fileFilter:="Excel files(*.xls),*.xls")

The program opens a new presentation and I would like the user to be able to save it themselves. Right now I have it saved with a user entered date and location.