"Sidst opdateret"

Prøv med denne her
-----------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim lastSave As Date
    lastSave = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
    [A1] = lastSave
End Sub
---------------

Den skal indsættes i Arkets kodemodul under "ThisWorkbook".

Iøvrigt er 200 point lidt i overkanten for dette spørgsmål.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("ark1").Range("A1") = Now
End Sub

Jeg kan se at jeg har misforstået spørgsmålet.

Mit kode skriver hvornår filen sidst er gemt (gangen før), og ikke tidspunktet når filen gemmes nu. (Sig til hvis i forstår hvad jeg mener, så kan i forklare det til mig bagefter :-) )

når du åbner filen igen vil denne datotid stå i Ark1(A1)

Hvis du bruger XL2000 og derover, kan du indsætte denne funktion i et alm. kodemodul og den vil herefter være tilgængelig i en celle således..
=Lastsaved()


Public Function lastsaved()
Application.Volatile
lastsaved = ActiveWorkbook.BuiltinDocumentProperties.Item(12)
End Function

Et tilsvarende spørgsmål er besvaret her:
http://www.eksperten.dk/spm/339433

Hvis hændelsen Workbook_BeforeSave bruges på filer, hvor der bruges SaveAs, så skal man lige være opmærksom på, at SaveAs kan anulleres efter hændelsen er kørt. Som Jan også har vist i linket til sprøgsmål 339433, så vil jeg også bruge BuiltinDocumentProperties, men jeg vil gøre det når regnearket åbnes, således og placeret i kodemodulet "ThisWorkbook"

Private Sub Workbook_Open()
    Sheet1.Range("A1").Value = _
        ThisWorkbook.BuiltinDocumentProperties("Last Save Time").Value
End Sub

Lukketid.

Clean up time is overdue...