VB Editor module

  • Thread starter Thread starter soopial
  • Start date Start date
S

soopial

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
 
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
 
Back
Top