Добрый день.
Объявляю массив
Dim aAr() 'массив отмеченных листов с диапазоном дат
Dim runAr() 'массив рабочих дней
При попытке загрузить данные выходит ошибка
runAr = Worksheets(aAr(n, 1)).Range(Cells(2, 25), Cells(iNam + 2, 25 + ird)).Value 'Y=25 столбик
в aAr(n, 1) имя листа
На всякий случай прилагаю файл пробника
Объявляю массив
Dim aAr() 'массив отмеченных листов с диапазоном дат
Dim runAr() 'массив рабочих дней
При попытке загрузить данные выходит ошибка
runAr = Worksheets(aAr(n, 1)).Range(Cells(2, 25), Cells(iNam + 2, 25 + ird)).Value 'Y=25 столбик
в aAr(n, 1) имя листа
На всякий случай прилагаю файл пробника