I have a Macro that changes the Print Page Margin on all
worksheets, but it very slow.

Is there a way to speed this up by forcing a calcualtion
of the the Margings at the end of the Macro doing recalc
on all sheets at once?

' Defines standard Footer & Header settings
For Each wks In Worksheets
If wks.Visible = xlSheetVisible Then
wks.PageSetup.LeftMargin =
Application.InchesToPoints(0.21)
wks.PageSetup.RightMargin =
Application.InchesToPoints(0.23)
End If
Next wks
End Sub

Thanks you for the help