Excel VBA Макросы: Макрос для одномоментного удаления строк и столбцов на всех листах книги.

[Милая]

Подскажите макрос для одномоментного удаления строк 1:5 и столбцов A, C, D на всех листах одной книги.

[Администратор]

Макрос

Sub Макрос()

    Dim sh As Worksheet


    ' Отключение монитора, чтобы ускорить макрос.
        ' Если много формул, то можно ещё отключить формулы.
    Application.ScreenUpdating = False
   
    '1. Движение по всем листам.
    For Each sh In Worksheets
        '1) Удаление строк.
        sh.Rows("1:5").Delete
        '2) Удаление столбцов.
        sh.Range("A:A,C:D").Delete
    Next sh
   
    ' Сообщение.
    Application.ScreenUpdating = True
    MsgBox "Готово.", vbInformation

End Sub

[свернуть]

[Милая]

Огромное Вам спасибо. Вы меня очень выручили.