Удаление колонтитулов

[NooBasTiK]

Подскажите есть ли решение на удаление колонтитулов с листов всей книги? (листов много)

[Alex_ST]

Ну, например, так:

Код Выделить Развернуть

Sub Del_AllHeadersAndFooters()
   Dim Wsh As Worksheet
   For Each Wsh In ActiveWorkbook.Worksheets
      With Wsh.PageSetup
         .LeftHeader = "": .CenterHeader = "": .RightHeader = ""
         .LeftFooter = "": .CenterFooter = "": .RightFooter = ""
      End With
   Next Wsh
End Sub

[NooBasTiK]

Спасибо! Работает! Лови +1