Saving documents

[GWizz]

Wanting to save a document to a predefined path but i want it to bring up the
saveas dialog box with a uniquely generated name. I have coded the name
generation & path defining code but struggle to bring up the SaveAs dialog
box populated with the predifned filename. I specifically want the user to be
able to overide it immediately before saving.

Any ideas greatly appreciated.

Regards
--

 

[Perry]

Dim dlg As FileDialog
Set dlg = Application.FileDialog(msoFileDialogSaveAs)
With dlg
.InitialFileName = "c:\temp\MyGeneration.doc"
If .Show Then .Execute
End With

 

[GWizz]

Thanks Perry Superb !
--

Dim dlg As FileDialog
Set dlg = Application.FileDialog(msoFileDialogSaveAs)
With dlg
.InitialFileName = "c:\temp\MyGeneration.doc"
If .Show Then .Execute
End With