try putting the following type of code in your workbook
module 'ThisWorkbook' (don't put it in a standard module):
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In Me.Worksheets
With wkSht.PageSetup
.CenterFooter = me.name
End With
Next wkSht
End Sub

--
Regards
Frank Kabel
Frankfurt, Germany

"PCE Man" <PCE schrieb im Newsbeitrag
...
Using VBA, how can I add the filename to the left foote, before
printing, in
all worksheets of the open workbook, without manually opening up each
worksheet and adding a custom footer.