Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
Worksheets("Sheet1").Range("A1").Value _
= "Last Saved on " & Format(Date, "mmmm dd, yyyy")
End Sub


Gord Dibben MS Excel MVP

On Mon, 22 Dec 2008 09:53:01 -0800, Export Waypoints from S&T ''06
wrote:

Is it possible to display the last file save date in an excel spreadsheet
like one can in Word?

D2