VBA Page Setup Code taking too long

[Drofidnas]

Morning

I have the following VBA code to set the margins and footers of my page. The trouble is, each . step is taking 3 seconds to execute, meaning the whole snippet takes over a minute to run. It's part of a bigger macro which executes in under 5 seconds so this whole section is causing the lag.
Any idea why this might be or am I not using the code efficiently?

ActiveSheet.PageSetup.PrintArea = "$A$1:$E$17"

With ActiveSheet.PageSetup
        .RightMargin = Application.InchesToPoints(0.99)
        .LeftMargin = Application.InchesToPoints(0.4)
        .TopMargin = Application.InchesToPoints(0.88)
        .BottomMargin = Application.InchesToPoints(0.91)
        .HeaderMargin = Application.InchesToPoints(0.4)
        .FooterMargin = Application.InchesToPoints(0.63)
        .LeftFooter = "    2-" & Worksheets("2_ADS_Data").Range("O" & rng)
        .RightFooter = ""
        .LeftHeader = "    " & Worksheets("2_ADS_Data").Range("B1")
        .RightHeader = ""
End With

Cheers

Chris

 

[Peter_SSs]

There is the following option, but I think it only applies from Excel 2010 & later.

Application.PrintCommunication = False

'Your page setup code here

Application.PrintCommunication = True

 

[Drofidnas]

Wow that did the trick. Many thanks.

I've not touched this spreadsheet for about 6 months and I swear it used to be quicker so maybe other commands such as Application.Screenupdating (which I regularly use) have a bearing on this as well.

Cheers Peter

 

[Peter_SSs]

Glad it helped.