How do I show the last saved date in an Excel worksheet?

I have an Excel worksheet that is updated on a regular basis. I'd like to
include a cell that shows the last date saved so that its easy to tell how
current the worksheet is. Any advice? Thanks!

Here' a macro that will populate a cell A1 with date/time the workbook was last saved (be sure to change the cell reference in BOLD to the cell you want the saved date in):

Sub getChangeInfo()
Dim lastAuth, lastSave
lastSave = ActiveWorkbook.BuiltinDocumentProperties(12)
ActiveSheet.Range("A1") = "Last Saved: " & lastSave
End Sub

Hope this helps,
theDude

Here's one that i like to use. It's not actually what you asked for though, this will put the info in the status bar on the bottom. if it's too long, you can cut out the time or username or whatever else.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SaveStamp
End Sub

Private Sub Workbook_Deactivate()
Application.StatusBar = False
End Sub

Sub SaveStamp()
Application.StatusBar = "Last Saved on " & Date & " at " & Time & " by " & Application.UserName
End Sub

Hi
use the following UDF:
Function DocProps(prop As String)
application.volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function

and enter in a cell
=DOCPROPS("last save time")
(format cell as date)

--
Regards
Frank Kabel
Frankfurt, Germany
"mgriffie" <mgriffie@discussions.microsoft.com> schrieb im Newsbeitrag
news:8885527D-BDD2-4931-B1A2-0DF2CD2D2B15@microsoft.com...
>I have an Excel worksheet that is updated on a regular basis. I'd like to
> include a cell that shows the last date saved so that its easy to tell how
> current the worksheet is. Any advice? Thanks!
>