I'm looking for a way to capture the date a file was last updated in an Excel
spreadsheet. If a file was last updated 3 days ago, I want to see that date,
not the date the file was printed.

Paste this code into the THISWORKBOOK Module and then pick a cell (say A1)
that where you'd like for the date and time to appear and in it enter
=LastSaved


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.Names.Add Name:="LastSaved", _
RefersToR1C1:="=""" & _
Format(Now, "mmm-dd-yyyy hh:mm") & """"
End Sub

Jim May

"DNader" wrote:

I'm looking for a way to capture the date a file was last updated in an Excel
spreadsheet. If a file was last updated 3 days ago, I want to see that date,
not the date the file was printed.

Try this

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("A1").Value = Date
End Sub

Alt+F11 to open VB editor
double click This Workbook
Paste code in

Mike

"DNader" wrote:

I'm looking for a way to capture the date a file was last updated in an Excel
spreadsheet. If a file was last updated 3 days ago, I want to see that date,
not the date the file was printed.

Hi Mike

Can I jump in on this thread? I'd like to do exactly this, but also put
alongside the username of who last saved the document. Do you have any VB
code that will let me put that in please?

Thanks
--
Marie Bayes


"Mike H" wrote:

Try this

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("A1").Value = Date
End Sub

Alt+F11 to open VB editor
double click This Workbook
Paste code in

Mike

"DNader" wrote:

I'm looking for a way to capture the date a file was last updated in an Excel
spreadsheet. If a file was last updated 3 days ago, I want to see that date,
not the date the file was printed.