Danny, zoals ik al in je andere bericht aangaf, kan je het 'before save' event gebruiken om een datum/tijd op je sheet te plaatsen. Om dit event een beetje te misleiden moet je een 'if' statement gebruiken. Zoiets als: If activeworkbook.Name = [geef hier de naam van het orginele workbook (vergeet de aanhalingstekens niet!)] then exit sub
Range("A1").value = Now Als je het orginele workbook dus opslaat, treedt het 'before save' event in werking, maar zal door het 'if' statement de code verlaten.

Er is 1 nadeeltje. Het wordt pas zichtbaar in het met 'save as' opgeslagen workbook, als dat workbook nogmaals wordt opgeslagen. Want dan ziet het 'before save' event dat de naam van het actiieve workbook niet meer gelijk is aan de orginele naam en zal de code vervolgt worden.

Misschien heb je er wat aan...  

Groet, Leo

Danny, ook al is de topic afgesloten... Ik vond in een boek - wat ik pas aangeschaft had - de volgende code....
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    If SaveAsUI = True Then Range("A1").Value = Date

End Sub
Dit reageert alleen op het 'before save event' als er op 'save as' (opslaan als) geklikt wordt. Dus alleen op het moment dat het workbook van naam veranderd!!!!

Groet, Leo