Сохранение массива листа с указанием диапазона ячеек

Question

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"). Значение