Excel «Ошибка выполнения 424: требуется объект» при попытке создать цикл автозаполнения - PullRequest
0 голосов
/ 27 апреля 2020

Я действительно новичок в VBA в Excel, и я пытаюсь использовать следующий код в модуле, чтобы go проходил через каждую рабочую таблицу и автоматически устанавливал ячейки с включенным переносом текста:

Sub WorksheetLoop2()

     Dim Current As Worksheet

     For Each Current In Worksheets
        Call AutofitRows

     Next

End Sub

Sub AutofitRows()
    Dim CL As Range

    For Each CL In UsedRange
        If CL.WrapText Then CL.Rows.AutoFit
    Next
End Sub

Однако, когда я пытаюсь запустить это, появляется окно «Ошибка 424: требуется объект», а затем отладчик выделяет строку:

For Each CL In UsedRange

Если я помещаю код AutofitRows в спецификацию c Рабочий лист, а затем запустите его, он работает нормально, но я хочу запускать Макрос для более чем 25 Рабочих листов в одном go вместо того, чтобы выполнять их по отдельности.

Что я здесь не так делаю? Я явно упускаю что-то совершенно очевидное, но я не могу понять, почему это не работает.

...