okshef, при открытии сразу заменяет на текущую, старую не увидеть.
Вычитал макрос по поводу даты, можно время добавить также:
В модуль ЭтаКнига
Код:
Option Explicit
Private Sub Workbook_Open()
activesheet.range("A1").Value = Format(Date, "dd.mm.yyyy")
End Sub