Я действительно новичок в 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 вместо того, чтобы выполнять их по отдельности.
Что я здесь не так делаю? Я явно упускаю что-то совершенно очевидное, но я не могу понять, почему это не работает.