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