While this isn't a solution to your question, pressing F12 will open up the SaveAs dialog box.
You can also save this macro to your Normal document, then assign the macro to a button that goes on your toolbar.
Sub saveAs() Application.FileDialog(msoFileDialogSaveAs).Show End Sub
When I renamed my macro then re-added it to the toolbar, it seems to work every time from the button.