Я хочу добавить код ниже для проверки, если файл уже существует в передающей папке с диапазоном m23.value и, если существует, показать поле ввода для нового значения, под которым файл должен быть сохранен
как я могу это сделать
Dim ArrayOne как вариант
ArrayOne = Array ("trans", "COVER-1", "COVER-2", "COVER-3")
ThisWorkbook.Sheets (ArrayOne). Выберите
ThisWorkbook.Sheets (ArrayOne) .Copy
NewPath = "C: \ Users \ duqum user \ Desktop \ Transmittal \ "& Range (" M23 "). Значение
MkDir NewPath
ActiveWorkbook.SAVEAS Имя файла: = NewPath &" \ "& Range (" m23 "). Значение