[Iska]

Grey_rnd, многое «не так». Не так вставлено. И не туда вставлено.

1. Вставлять следует не в модуль «\Modules\Module1», а в модуль Рабочей книги «ЭтаКнига»:



2. Вставляйте такой код (остальное Вам для изложенной выше хотелки не нужно):

Код:

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ThisWorkbook
        .Worksheets("График").Range("H1") = Format(.BuiltinDocumentProperties.Item("Last Save Time"), "dd.mm.yyyy")
    End With
End Sub