Add footers in 20 worksheets at once
 

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.

Add footers in 20 worksheets at once
 

Group all sheets Nick

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

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"NameNick" wrote in message oups.com...
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.

Add footers in 20 worksheets at once
 

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

On Thu, 14 Jun 2007 08:32:45 -0700, NameNick wrote:

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.

Add footers in 20 worksheets at once
 

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

On Thu, 14 Jun 2007 18:09:14 +0200, "Ron de Bruin"
wrote:

Group all sheets Nick

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

Add footers in 20 worksheets at once
 

Correct Gord.

Thanks

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Gord Dibben" <gorddibbATshawDOTca wrote in message ...
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

On Thu, 14 Jun 2007 18:09:14 +0200, "Ron de Bruin"
wrote:

Group all sheets Nick

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