Получение даты из InputBox ⇐ Excel

[Гость]

Я работаю над Excel VBA с помощью кнопки. После нажатия кнопки появится поле ввода и спросит пользователя, какой будет следующий месяц. Введите дату нового месяца, и будет создана новая книга с именем месяца и года. Это работает нормально, если пользователь вводит дату правильно. Однако, если Пользователь ничего не вводит в поле ввода, отменив его или введя вместо даты другие данные. Появится код ошибки 13: Несоответствие типа. Похоже, переменная DATE не может быть пустой.

Вот мой код:

Подписка NewMonth_button() Тусклый Date_Today как дата Dim nwFilename как строка Date_Today = InputBox("Пожалуйста, введите ГОД-Месяц") nwFilename = «Ежедневный журнал_» и год (Date_Today) и «_» и месяц (Date_Today) Рабочие листы(Массив("список", "данные", "Заполнить", "Архив>")).Копировать Имя файла ActiveWorkbook.SaveAs:=ThisWorkbook.Path & Application.PathSeparator & nwFilename Конец субтитра Я пробовал что-то вроде:

Если Date_Today = "" то выход из субмарины конец, если Сразу после строки Date_Today = InputBox("Пожалуйста, введите ГОД-Месяц") Но это не работает.

Есть ли способ избежать этого? Большое спасибо.