Change print page to A4

We receive worksheets from other divisions that have the paper size set to Letter. This affects how the pages print out on A4 paper. Is there an easy way to convert all the sheets in a workbook to the A4 paper size?

By Neale Blackwood

The macro below will adjust the paper size to A4 for every sheet in the active workbook.

Sub A4Paper()
Dim sht As Worksheet

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