Hi

I use this in every workbook I want to use this(in the Thisworkbook module)
When you print the footer will be updated before it print.(not working correct in 97)

Maybe somebody else can help you with a good way to have it
available in all your workbooks.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ActiveWindow.SelectedSheets
wkSht.PageSetup.RightFooter = "&8Last Saved : " & _
ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
Next wkSht
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"soopial" wrote in message ...

I have written a VBE module that indicates the last saved date to the
footer on a particular workbook.

Can someone tell me how I can move/edit/re-write so that this can be
used for ALL workbooks?

thanks in advance,
Marcy


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/