Embora isso não seja uma solução para sua pergunta, pressionar F12 abrirá a caixa de diálogo Salvar como.
Você também pode salvar essa macro em seu documento Normal e, em seguida, atribuir a macro a um botão que esteja na sua barra de ferramentas.
Sub saveAs()
Application.FileDialog(msoFileDialogSaveAs).Show
End Sub
Quando renomeiei minha macro e adicionei-a novamente à barra de ferramentas, ela parece funcionar sempre no botão.