Хотя это не решение вашего вопроса, нажатие клавиши F12 откроет диалоговое окно SaveAs.
Вы также можете сохранить этот макрос в обычном документе, а затем назначить макрос кнопке, которая находится на панели инструментов.
Sub saveAs() Application.FileDialog(msoFileDialogSaveAs).Show End Sub
Когда я переименовал свой макрос, а затем снова добавил его на панель инструментов, он, кажется, работает каждый раз с кнопки.