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.