Insert Date into Cell when file saved

[scouse]

I am currently using the following code in my worksheet:

Function SavedDate() As Date
Application.Volatile
SavedDate = ActiveWorkbook.BuiltinDocumentProperties.Item(12)
End Function

In a cell I am putting
=SavedDate()

But this is giving me a #name? error....any ideas what I am doing wrong??
I am using Excel 2000

Thanks,
Scouse

 

[VoG]

That code has to go in a regular module, not a sheet's code module. It is working here.

 

[scouse]

Thanks VoG, works perfectly....apologies for silly question!!