Вызов окна сохранить как

[mephist]

Я хочу, чтобы после выполнения макроса выскочило окно Save As. Я надеялся это сделать строкой

 ActiveWorkbook.SaveAs , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Но она сохраняет под тем же именем.

[The_Prist]

Вам же VBA сам подсказывает, а Вы читать не хотите.

ActiveWorkbook.SaveAs FileName:=Книга1.xlsm, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Зачем Вы оставили аргумент FileName пустым?

[mephist]

Я смотрел параметры Save As)))
Дело то все в том, что я не хочу сохранять под определенным именем, я хочу, чтобы высочило окно Save As и уже тогда ввели имя. Так сказать деликатно заставить пользователя самого сохранить книгу.

[pivas]

Добавьте InputBox:

x=InputBox("Введите имя книги")
ActiveWorkbook.SaveAs FileName:=x & ".xlsm", FileFormat

далее по тексту.

[The_Prist]

Так бы и сказали:

Application.Dialogs(xlDialogSaveAs).Show

[mephist]

Спасибо, но это я тоже мог бы и сам сделать. Мне нужно именно окошечко, стандартное, виндовское, в котором можно папочку выбрать.

[The_Prist]

А что - не показывает?

[mephist]

Спасибо большое! Все работает просто супер! Именно то, что нужно!
Предыдущее мое сообщение я отправил одновременно с Вами, поэтому наверно вы спросили The_Prist

А что - не показывает?