Speicherdatum in Fußzeile

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&""Arial""&8" & ActiveSheet.Name
.RightHeader = "Status: "
.LeftFooter = "&""Arial""&6" & ActiveWorkbook.FullName & "\" & ActiveSheet.Name
.CenterFooter = ""

Hinter "Status: " sollte das letzte Speicherdatum erscheinen. Habe es schon mit ActiveWorkbook.BuiltinDocumentProperties(12) versucht, aber da kommt ein Laufzeitfehler.

Gruß

Dominik