Hi Moreta,

Here is what I use. Feel free to use it. Hopefully the comments are self
explainatory.
Good luck,

JohnO

' Author: John Ostar
' Last Modified: 10/10/2005
'Description:
'This VBA code will put the Workbook's Last Modified Date and Time into the
' printed page footer of all sheets, including charts, of the open
workbook.
' It is needed because MS-Excel does not have a field similar to
MS-Word's
' LastSaveDate that can just be easily added to a custom footer.
' This code will run everytime the workbook is saved.
'Installation: Open the desired Workbook. Click Tools-Macro-Visual Basic
Editor.
' In Project Explorer, double click on ThisWorkbook and paste this code
into it.
' Close the Visual Basic Editor and Save the Workbook.
'Note: It will be necessary to set Tools-Macro-Security to Low or Medium

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Get the active workbook's last modified date property.
dtMyLastSaveDate = ActiveWorkbook.BuiltinDocumentProperties("Last Save
Time")

'Put value into center footer of every sheet in the workbook
For Each wsheet In Sheets
'the default date format is m/d/yy h:m:s AM/PM
'alternate format is m/d/yy h:mm am/pm
dtMyLastSaveDate = Format(dtMyLastSaveDate, "m/d/yy h:m am/pm")
wsheet.PageSetup.CenterFooter = "Last Modified: " & dtMyLastSaveDate
Next wsheet
End Sub

"moreta" wrote:


This works beautifully. Is there a way to put the date in an Excel
header/footer? That would be... excellent!

"Gord Dibben" wrote:

Hoff

The UDF below goes into a General Module in the workbook.

With your workbook open hit ALT + F11 to get to the VBEditor.

CTRL + r to open the Project Explorer.

Find your workbook/project and right-click on it and InsertModule.

Copy and paste the DocProps UDF in there.

ALT + Q to go back to Excel.

In a cell enter =DocProps("last save time")

When happy with results, save the workbook.


Gord Dibben Excel MVP

On Fri, 4 Feb 2005 13:15:03 -0800, "Hoff"
wrote:

This sounds like what I'm looking for too, but I when I follow the
instructions, I get an error: "#NAME?" in the cell.
Any ideas?

"Frank Kabel" wrote:

Hi
a UDF is a user defined function written in VBA (visual Basic for
Applications'). For getting started with this see:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

--
Regards
Frank Kabel
Frankfurt, Germany

"Pringles." schrieb im Newsbeitrag
...
sorry to intrude, but... what exactly is a UDF and how do i make one?

"Frank Kabel" wrote:

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

"Ranrunr" schrieb im
Newsbeitrag
...
How do I automatically insert the date the current file was last
modified
into a cell in Excel?