Hi Nic

Would this help you out
Sub date_last_modified()
date_modified = ActiveWorkbook.BuiltinDocumentProperties("Last Save
Time")
date_modified = Format(date_modified, "dd/mm/yyyy")
'MsgBox date_modified
'or insert in a cell of your choice
'range("c1").select
'activecell=date_modified
''
'or insert in a center footer
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
date_modified = Format(date_modified, "dd/mm/yyyy")
wsheet.PageSetup.CenterFooter = "Last Modified: " &
date_modified
Next wsheet

End Sub


--
jetted
------------------------------------------------------------------------
jetted's Profile: http://www.excelforum.com/member.php...o&userid=17532
View this thread: http://www.excelforum.com/showthread...hreadid=565155