Have a small task that I tried to solve with this macro:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
For Each wk In Worksheets
ActiveSheet.PageSetup.LeftFooter = "&A"
ActiveSheet.PrintOut
Next
End Sub

Not very complex: Cycle through all sheets,
for each and every sheet (the one active):
- set left footer to show the Worksheet tab ("&A")
- print it

Any good advise from all of You ?

Arild