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

Автор NooBasTiK, 21.01.2013, 10:54

« назад - далее »

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