Open SaveAs box and suggest name

[jram]

Hi

I am trying to open the SaveAs dialog box in a way which is compatiable with Excel 2000 and 2003 and suggest a filename. If possible I would like the default directory to be the same as the file template that they are using.

I saw a suggestion on the internet to use :

Dim fd As FileDialog

but when I try to run this is shows an error "user-type not defined".

If you could help that would be great.

Thanks
James

[Andy Pope]

Try using GetSaveAsFilename

chdir "<your folder>"
vntFileName = application.GetSaveAsFilename("MyFile.xls","Excel file (*.xls),*.xls")