I try to put my own filename suggestion into the SaveAs dialog.

I have tried something like this

strfilename = sSeets(1).Range("b1") & Sheets(1)Range("c1")
Application.GetSaveAsFilename strfilename

And it gets my name from the sheet allright.

But if i put it in the BeforeSave event the dialog is display on Save as
well as SaveAs. And using SaveAs the dialog is shown twice.

What can I do to put my own name suggestion into the standard FileSaveAs
dialog?

Jan