How to automate custom footer on all tabs

When I receive files from others, they typically do not have a footer w/
basic information like date and file name.
I want this on all my files and further want to customize the font size and
usually want the path name of where I store file in the custom footer.
When I receive a mutli tab files, I am having to manually 'setup- custom
footer- add info- change font...' to each tab.
I want to apply the settings to all tabs- or even better- just automate the
whole process- to not even have to go into setup, custom footer dialog. Just
apply some saved custom footer I have to all tabs of the received file.
For my own created files, this is easy w/ saved default template- but for
received files- How?
Excel 2003 11.6202.6204

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = Format(Date, "dd mmm yyyy")
.RightFooter = ActiveWorkbook.FullName
End With
End Sub

add this code to the ThisWorkbook code module

--

HTH

RP
(remove nothere from the email address if mailing direct)


"neal august" <neal [email protected]> wrote in message
news:[email protected]...
> When I receive files from others, they typically do not have a footer w/
> basic information like date and file name.
> I want this on all my files and further want to customize the font size
and
> usually want the path name of where I store file in the custom footer.
> When I receive a mutli tab files, I am having to manually 'setup- custom
> footer- add info- change font...' to each tab.
> I want to apply the settings to all tabs- or even better- just automate
the
> whole process- to not even have to go into setup, custom footer dialog.
Just
> apply some saved custom footer I have to all tabs of the received file.
> For my own created files, this is easy w/ saved default template- but for
> received files- How?
> Excel 2003 11.6202.6204