saveas dialog not working

[Human_doing]

Hi all,

I have the following code which is supposed to offer the option to 'save as' to a user at the end of a macro that has created a new book1, I don't get an error when I run this but it doesn't seem to actually save the file. Never had this problem before can anyone please take a look at the code and advise? I'm using Excel 2003.

fileSaveName = Application.GetSaveAsFilename( _
FileFilter:="Excel Workbooks,*.xls")
If fileSaveName <> False Then
End If
 
MsgBox "Success!! Excel will now close. File saved as " & fileSaveName

Many thanks

 

[Andrew Poulsom]

GetSaveAsFileName only prompts for a name. It doesn't actually save the file. You have to do that in code, passing fileSaveName to the Workbook's SaveAs method.

 

[Trevor G]

Would this help you by using the SaveAs dialog box.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> saveTest()<br>Application.Dialogs(xlDialogSaveAs).Show<br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Human_doing]

Thanks gentlemen, got it sorted from that,

Many thanks