Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

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

Автор 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