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

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

thanks in advance,
Marc

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

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/

See Chip Pearson's discussion of application level events:

http://www.cpearson.com/excel/AppEvent.htm

--
Regards,
Tom Ogilvy

"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/