I made a few minor changes...

Original also ran in a couple of seconds for me...

Try
Sub setMargins()
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"

ActiveSheet.PageSetup.PrintArea = ""
.LeftFooter = "&Z&F"
.RightFooter = "&D &T"
i = Application.InchesToPoints(0.5)
.LeftMargin = i
.RightMargin = i
.TopMargin = i
.BottomMargin = i
j = i = Application.InchesToPoints(0.5)
.HeaderMargin = j
.FooterMargin = j
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Application.ScreenUpdating = True
End Sub


"William G" wrote:

I have the following Macro to set up a standard page setup for all my
spreadsheets. However, it seems slower than if I were to do it
manually. I have other macros that take just a second or two to
complete. Any thoughts/feedback on this issue? I am using Excel 03.


With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftFooter = "&Z&F"
.RightFooter = "&D &T"
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.25)
.FooterMargin = Application.InchesToPoints(0.25)
.FitToPagesWide = 1
.FitToPagesTall = False
End With
End Sub

Thanks,
William