Setting the default filename in xlDialogSaveAs
 

I would like to set the default filename in the filename window when the
SaveAs Dialog box opens. Is this possible?

bnSave = Application.Dialogs(xlDialogSaveAs).Show

I would like the xlDialogSaveAs window to open with the filename of, say,
"ts051604.xls."

How can I do this?

The file from which the xlDialogSaveAs is run is not ts051604.xls.

John