Changing Paper Size for a Complete Workbook

Bob has a workbook that has about fifteen worksheets in it, and he needs to change the page format for all the worksheet from Letter to A4. There is a quick way to make the change by following these steps:

1. Right-click any worksheet tab. You'll see a Context menu appear.
2. Choose Select All Sheets. All the worksheet tabs should now be selected.
3. Choose Page Setup from the File menu. Excel displays the Page tab of the Page Setup dialog box. (Click here to see a related figure.)
4. Using the Paper Size drop-down list, choose A4.
5. Click OK.
6. Right-click any worksheet tab. You'll again see a Context menu.
7. Choose Ungroup Sheets.

That's it; the paper size is now set for all the worksheets. There is a drawback to this approach, however: If individual worksheets have differing page setup settings (different orientations, margins, headers, footers, etc.), then following these steps will set them all the same. If you only want to change the paper size and don't want to change any other settings, your only recourse is to use a macro to do the change.

Sub AllSheetsA4()
    Dim sht As Variant

    For Each sht In ActiveWorkbook.Sheets
        sht.PageSetup.PaperSize = xlPaperA4
    Next
End Sub

The macro steps through each sheet in the workbook, changing only the PaperSize property so that the sheet will print on A4 paper.