Faster option for 'With ActiveSheet.PageSetup'?

[sariahdog]

I have created a macro that will have n number of sheets, possibly 20-30. This macro will be used hundreds of times per day.

Currently I have a sub proceedure that formats the worksheets. The portion I'm concerned with is below:

    With ActiveSheet.PageSetup
        .CenterHeader = "Page &P of &N"
        .Orientation = xlLandscape
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .FitToPagesWide = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With

I will be calling this sub multiple times and would like to know if there is a faster way to do this?

 

[VoG]

I don't know how to speed that up. Excel interacts with your printer drivers and it can be sloooow.

 

[Armando Montes]

Chacek this thread:
http://www.mrexcel.com/forum/showthread.php?t=228323