Displaying the Saved date and time

[Phil Mandeville]

Hello,
How do I display the last saved date and time of a
workbook within a cell of a spreadsheet?

Many thanks.

 

[Norman Harker]

Hi Phil!

Try the following subroutine that goes in the ThisWorkbook module:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets(1).Range("A1") = "Last saved" & Now
End Sub



--
Regards
Norman Harker MVP (Excel)
Sydney, Australia
Holidays and Observances Monday 14th July: France, French Guinea,
French Polynesia, Guadeloupe, New Caledonia, St Martin, and St. Pierre
& Miquelon (Bastille Day); Martinique and Mayotte (National Days);
Madagascar (Fandoana Bathing Festival); Sweden (Crown Princess'
Birthday);Turkmenistan (Turkment Bakhsi Holiday); United Kingdom
(Emmeline Pankhurst Day). O-Bon / Festival of Souls (Shinto). NYT of
14-Jul-2003 reports Iraq National Day as cancelled public holiday.
(e-mail address removed)
Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.

 

[Phil Mandeville]

That worked great. Thanks again Norman!

-----Original Message-----
Hi Phil!

Try the following subroutine that goes in the ThisWorkbook module:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets(1).Range("A1") = "Last saved" & Now
End Sub



--
Regards
Norman Harker MVP (Excel)
Sydney, Australia
Holidays and Observances Monday 14th July: France, French Guinea,
French Polynesia, Guadeloupe, New Caledonia, St Martin, and St. Pierre
& Miquelon (Bastille Day); Martinique and Mayotte (National Days);
Madagascar (Fandoana Bathing Festival); Sweden (Crown Princess'
Birthday);Turkmenistan (Turkment Bakhsi Holiday); United Kingdom
(Emmeline Pankhurst Day). O-Bon / Festival of Souls (Shinto). NYT of
14-Jul-2003 reports Iraq National Day as cancelled public holiday.
(e-mail address removed)
Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.



.