[Iska]

okshef, не годится — будет при каждом открытии документа новая дата.

Busla, вставьте в модуль рабочей книги шаблона в процедуру обработки события открытия рабочей книги что-то наподобие такого кода:

Код:

Private Sub Workbook_Open()
    With ActiveWorkbook.ActiveSheet.PageSetup
        If Len(.CenterHeader) = 0 Then
            .CenterHeader = CStr(Date)
        End If
    End With
End Sub

Т.е., если верхний центральный колонтитул активного листа активной рабочей книги пока пуст (первое открытие рабочей книги при её создании) — то заполнить его вычисленной текущей датой.