Add footers in 20 worksheets at once

N

NameNick

I have a EXCEL workbook with about 20 worksheets. These worksheets
are set up with different characteristics for printing, e.g., each has
a different header and some are portrait and some are landscape.

I want to add a common footer to all worksheets at once without
messing up the exisiting print characteristics.

Is there any way of doing that?

Thanks.
 
R

Ron de Bruin

Group all sheets Nick

Right click on a sheet tab and choose Select all sheets
Then change the footer
And then ungroup the sheets
 
G

Gord Dibben

Sub Path_All_Sheets()
Set wkbktodo = ActiveWorkbook
For Each ws In wkbktodo.Worksheets
ws.PageSetup.RightFooter = ActiveWorkbook.FullName & " " & Chr(13) _
& Application.UserName & " " & Date
Next
End Sub

Won't change any of the other print setup characteristics.


Gord Dibben MS Excel MVP
 
G

Gord Dibben

Ron

That would also force each sheet to have the other print charateristics of the
active sheet thus changing orientation and the custom headers on each sheet.


Gord
 
Top