Sub GroupFooter()
'
' GroupFooter Macro
' Macro recorded 12/21/2006
Sheets(Array("Summary", "IFS Corp", "DASHIELL", "DACON", "MJELECTRIC", "BP",
"IUS", _
"ITS")).Select
for each sh in ActiveWindow.SelectedSheets
With sh.PageSetup
..LeftHeader = ""
..CenterHeader = "&G"
..RightHeader = ""
..LeftFooter = ""
..CenterFooter = ""
..RightFooter = "&""Arial,Italic""&8Date prepared: &D"
..LeftMargin = Application.InchesToPoints(0.5)
..RightMargin = Application.InchesToPoints(0.5)
..TopMargin = Application.InchesToPoints(1.1)
..BottomMargin = Application.InchesToPoints(1)
..HeaderMargin = Application.InchesToPoints(0.5)
..FooterMargin = Application.InchesToPoints(0.5)
..PrintHeadings = False
..PrintGridlines = False
..PrintComments = xlPrintNoComments
..PrintQuality = 600
..CenterHorizontally = True
..CenterVertically = False
..Orientation = xlPortrait
..Draft = False
..PaperSize = xlPaperLetter
..FirstPageNumber = xlAutomatic
..Order = xlDownThenOver
..BlackAndWhite = False
..Zoom = False
..FitToPagesWide = 1
..FitToPagesTall = False
..PrintErrors = xlPrintErrorsDisplayed
End With
Next
End Sub

You need to minimixe the number of properties you set as each one will take
a measurable amount of time. Most of these are default values, so only
change what you need.
example
..LeftHeader = ""

not needed.

--
Regards,
Tom Ogilvy


"Jan" wrote in message
...
I have a workbook with several spreadsheets, which I will be using each
month
as a template. I recorded a macro with the hopes of grouping the
worksheets
and then selecting the page setup to create the same footer information,
"Date prepared: & Date", on each worksheet. Although the macro groups the
worksheets, it only puts the footer information on the Summary worksheet.
Below is the code. Can anyone help me revise the code to put the footer on
each worksheet.

Sub GroupFooter()
'
' GroupFooter Macro
' Macro recorded 12/21/2006
Sheets(Array("Summary", "IFS Corp", "DASHIELL", "DACON", "MJELECTRIC",
"BP",
"IUS", _
"ITS")).Select
Sheets("Summary").Activate 'I think this is part of the problem
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&G"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "&""Arial,Italic""&8Date prepared: &D"
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(1.1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub

TIA
Jan