Попытка создать макрос, который откроет окно Сохранить как с именем файла по умолчанию в приглашении на основе значения ячейки.
Этот код работает в исходном файле, который я использовал, однако, когда я копирую /вставьте его в разные каталоги, которые не отображаются.
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.
Почему оно не работает согласованно?
Спасибо.