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. Display the Page Layout tab of the ribbon.
  4. Click the Size tool in the Page Setup group. Excel displays some common paper sizes.
  5. From the paper sizes offered, click the A4 option.
  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.