Этот код вставляет колонтитул в открытый лист:
Sub Signature()
With ActiveSheet.PageSetup
.CenterHeader = "Конфиденциально. Только для служебного использования" & ""
End With
End Sub
Но как быть в случае, если лист не открыт?
В некоторых случаях нет необходимости переходить на лист, чтобы с ним что-то сделать.
К нужному листу можно обратиться по имени, по порядковому номеру.
Например:
Worksheets("Лист1").PageSetup
Worksheets(1).PageSetup
Обратите внимание, что порядковый номер листа не заключается в кавычки. Если заключить в кавычки, то будет подразумеваться имя листа, а не порядковый номер.
Пример:
Sub Signature()
With Worksheets("Лист1").PageSetup
.CenterHeader = "Конфиденциально. Только для служебного использования" & ""
End With
End Sub
спасибо