VBA code for xlsm file's Last Modified Date/Time

I inherited a spreadsheet that contains the following function:

Function MyStamp()
Application.Volatile
MyStamp = FileDateTime(ThisWorkbook.FullName)
End Function

Trouble is, this is NOT showing the spreadsheet's Last Modified date.

For example, I took a file that was emailed to me. I copied it to my C: drive on 3/2/12 16:57. That's the file date/time that's showing up in the cell where the function is called.

However, if (in Excel 2010) I open the file from my C: drive, then go to File / Info / Related Dates, it correctly shows the Last Modified date of the file, which is 2/15/2012 2:57 PM (not the 3/2 of the file on my C: drive).

How do I write code to show the actual Last Saved Date of the file?

Thanks in advance.

Thank you shg.

I tried that function, and I'm getting a #NAME? error. Hmmmm...

I'm looking and looking... I don't see why it's failing...

Ciao

Use Workbook_BeforeClose event with the following code.

Sheets("Sheet1").range"AA1"="Last date modified " & NOW()