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

[Leojse]

Добрый день!
Нашел очень полезный для макрос по ссылке https://www.excel-vba.ru/chto-umeet-excel/podbor-vysoty-strokishiriny-stolbca-obedinennoj-yachejki/
Хотел бы узнать, как можно применить данный макрос ко всем листам книги?

[Дмитрий Щербаков(The_Prist)]

Сделать цикл по всем листам. Вопрос лишь в том как определять какие ячейки надо обрабатывать - выделенные или определенные?

[Leojse]

Дмитрий Щербаков(The_Prist), хотелось бы выровнять высоту объединенных ячеек по столбцам E-G в каждом листе книги. Строки в этих столбцах тоже могут быть объединены. Ширину подбирать не нужно.

[Дмитрий Щербаков(The_Prist)]

Попробуйте так

Код: (vb)

Sub ChangeRowColHeight()
    Dim rc As Range,ws as Worksheet
    Dim bRow As Boolean
    bRow = (MsgBox("Изменять высоту строк?", vbQuestion + vbYesNo, "www.excel-vba.ru") = vbYes)
    'bRow = True:  для изменения высоты строк
    'bRow = False: для изменения ширины столбцов
    Application.ScreenUpdating = False
    for each ws in activeworkbook.worksheets
        For Each rc In Intersect(ws.Range("E:G"), ws.Usedrange).cells
            RowColHeightForContent rc, bRow
        Next
    Next
    Application.ScreenUpdating = True
End Sub

[Leojse]

Дмитрий Щербаков(The_Prist), огромное Вам спасибо! Всё работает.