макрос начал выбрасывать индекс за пределы диапазона сообщения

Question

У меня есть макрос, который работал нормально по крайней мере 6 месяцев. Недавно он начал выдавать сообщение об ошибке «индекс вне диапазона», когда попадает в строку ниже:

Do Until Len(Trim(Workbooks(MyReport).Worksheets(Var1(Y)).Cells(r, 1))) + 
    Len(Trim(Workbooks(MyReport).Worksheets(Var1(Y)).Cells(r, 2))) + 
    Len(Trim(Workbooks(MyReport).Worksheets(Var1(Y)).Cells(r, 3))) = 0

    MyReport = "000000-Affliates.xlsx"
    Var1(Y) = "UK-FR Upld"

Этот код никогда не был проблемой? Любая помощь будет очень оценена. Спасибо ........

Answer 1

Это не было проблемой с макросом. Это было связано с именем листа в файле данных. У пользователя было несколько пробелов перед именем листа. Код макроса обрезал все пробелы в имени листа, чтобы макрос не нашел лист.

"имя листа" ≠ "имя листа"

Как только я удалил пробелы, макрос запустился, как и ожидалось.

Спасибо за помощь .......