Macro Applying Print Fit to One Page on All Worksheets in Workbook

I receive different workbooks from different sources, all of which require each worksheet to be printed after fitting to one page. The code for this works just fine, but does anyone know how I could write a code that would fit each worksheet to one page, instead of running the macro on each worksheet in the workbook? I am using Excel 2003, here is the code I use:

With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
.Zoom = False
End With

Thanks for your help