[Iska]

Twister83, угу. Только данные брать другие. Примерно так:

Код:

Private Sub Workbook_Open()
    With ThisWorkbook.Worksheets.Item(1).Cells(1, 1)
        .Value = ThisWorkbook.BuiltinDocumentProperties.Item("Last Save Time")
        .NumberFormat = "dd/mm/yy h:mm;@"
    End With
End Sub

«ThisWorkbook» — ссылка на ту рабочую книгу, которая содержит данный макрос.