I normally create workbooks with several worksheets. These worksheets
usually have identical formats, including what I want in the custom header
and footer. I am continuosly frustrated by not being able to select an
option that will automatically share the Page setup options across the
worksheets within the workbook. I am forced to go to each worksheet and
enter the custom information.

zilla

If you group the sheets and make the setup on the first sheet, all others will
be done simultaneously.

Group sheets by CRTL + Click for non-contiguous sheets or SHIFT + Click for
all sheets or right-click on a tab and "select all sheets".

Note: there are a few features not available with grouped sheets.

Print Area cannot be set, Print Titles cannot be set.

Headers and footers can definitely be set for all sheeys.


Gord Dibben Excel MVP

On Tue, 11 Jan 2005 07:41:02 -0800, zilla1906
wrote:

I normally create workbooks with several worksheets. These worksheets
usually have identical formats, including what I want in the custom header
and footer. I am continuosly frustrated by not being able to select an
option that will automatically share the Page setup options across the
worksheets within the workbook. I am forced to go to each worksheet and
enter the custom information.

Hi,

You can also run a macro, that will automatically format all the worksheets
in your workbook.
F. ex.:


Sub Landscape_all_worksheets()
Dim sh As Worksheet
Application.ScreenUpdating = False

For Each sh In ActiveWorkbook.Worksheets
With sh
With .PageSetup

' HERE YOU PUT YOUR SPECIFIC FORMAT

.LeftFooter = ActiveWorkbook.FullName & Chr(10) & "&A"
.RightFooter = "&D" & Chr(10) & "&T"
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1

' ...AND WITH THE 5 FOLLOWING LINES YOU CLOSE THE SUBROUTINE

End With
End With
Next sh

Application.ScreenUpdating = False
End Sub


---
Hope this will help you,




"zilla1906" wrote in message
...
I normally create workbooks with several worksheets. These worksheets
usually have identical formats, including what I want in the custom header
and footer. I am continuosly frustrated by not being able to select an
option that will automatically share the Page setup options across the
worksheets within the workbook. I am forced to go to each worksheet and
enter the custom information.