Here you go just add this to a standard module:

Sub AddFooters()
Dim ws As Worksheet
For Each ws In Worksheets
With ws.PageSetup
.LeftFooter = "My Left Footer"
.CenterFooter = "My Center Footer"
.RightFooter = "My Right Footer"
End With
Next
End Sub

Open VBE (Alt +F11)
Insert---Module
Paste Code
Run MAcro "AddFooters"


Sandy

SmartyPants wrote:
In there any way to add footers en mass?

I have a rather large and complicated workbook and I would like to add
footers to everything that prints from the workbook.

Is there any code that will add a footer (picture) to anything that
prints from a workbook?

Adding footers to all charts and graphs will take me a couple hours.