Request for code to speed up pageset macro

[Popet21]

I have the following code that is very slow - could someone please advise if there is a way to speed up this function:
For Each ws In Worksheets
ActiveSheet.DisplayPageBreaks = False
With ActiveSheet.PageSetup
.CenterHeader = "&A"
.CenterFooter = "Page &P of &N"
.LeftMargin = Application.InchesToPoints(0.236220472440945)
.RightMargin = Application.InchesToPoints(0.236220472440945)
.TopMargin = Application.InchesToPoints(0.708661417322835)
.BottomMargin = Application.InchesToPoints(0.708661417322835)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Next ws

 

[Andrew Poulsom]

That code is only setting the PageSetup for the ActiveSheet. That's not the same as setting it for each worksheet because you aren't activating the worksheet in your loop.

That said try using an XML macro:

http://www.mrexcel.com/forum/showthread.php?t=9141