Page Setup for entire workbook

[chrisn]

We have a several workbooks that are over 100 sheets each. I would lik
to change the setup on all of these to print out "Landscape".

Is there an easy way to change the "Page Setup" on an entire existin
workbook, or do I have to change it one sheet at a time?

Chris Nelso

 

[Frank kabel]

Hi
- select the first sheet
- hold down the SHIFT key and select the last sheet (to
group the sheets)
now change the pagesetup

 

[Gord Dibben]

Chris

To change just the orientation and no other setups on each sheet run this
macro.

Sub LandscapeAllSheets()
Application.ScreenUpdating = False
Dim N As Single
For N = 1 To Sheets.Count
Sheets(N).PageSetup.Orientation = xlLandscape
Next N
Application.ScreenUpdating = True
End Sub

With 100 sheets, pour another cup of coffee.

Gord Dibben Excel MVP