提示用户根据单元格值保存Excel文件名（使用VBA）

Question

尝试创建一个宏，该宏将打开“另存为”窗口，该文件的名称是根据单元格值在提示符下默认设置的。

此代码在我使用的初始文件中有效，但是当我将其复制/粘贴到其他目录中时，它不会显示。

Sub CommandButton1_Click()

Dim SvName As String

SvName = Sheets(1).Cells(6, 5).Value

MsgBox ("File should be saved as: " & SvName & ".xlsm")
Application.Dialogs(xlDialogSaveAs).Show SvName

End Sub

奇怪的是，即使代码不起作用（它会在不输入文件名的情况下打开空白的“另存为”对话框），MsgBox仍会显示SvName的正确值。

为什么不能始终如一地工作？

谢谢。