Установить колонтитулы во всей книге разом

[Ольго]

Есть книга Excel. Из большого количества листов. Как сделать чтобы нумеровались все листы в книге. Очень надоело в каждом листе колонтитулы проставлять
А если есть на такую заморочку макрос, то будьте милосердны - обисните как им пользоваца!
Всем огромное спасибо!

[Aent]

Ну если не гнаться за производительностью, то как то так:

Код: Выделить всё

Public sub WSNumerator()
    Dim ws as Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.PageSetup.CenterHeader = "Страница &С из &К"
    Next ws
End Sub

В модуль кода
Затем выполнить.