Or you could use this:

Set NewBook = Workbooks.Add
fName = Application.GetSaveAsFilename
NewBook.SaveAs Filename:=fName

which adds a new workbook and then displays the SaveAs Dialog Box so you can
enter any file name you like and choose the type file extension.


"ExcelQ" wrote:

I have an Excel template and when the user saves his workfile, I would like
to generate an unique file and pass it to the save dialog. Any help is
appreciated.