Recorded a macro to insert/change footer info.
Works great, while recording.
Attached macro to icon on toolbar.
Opened another file, clicked on macro.
It seemed to be working at something, but when I went
to check each sheet, only the first sheet was changed.
Tried this whole process 3 times - Same result each time.
Q1: What may be causing this?
Q2: I'm looking to insert Contract Number, found in cell E4
of Sheet c1, into CentreFooter.
How can this be done?

The following shows the pertinent parts of the recorded macro:
Option Explicit
Sub ContractFooter()
' ContractFooter Macro
'
Sheets(Array("c1", "Options", "Pricing", "Notes", "Warranty_CDN",
"Warranty_USA", _
"General Info")).Select
Sheets("c1").Activate
With ActiveSheet.PageSetup
' The following date will be manually adjusted 3 or 4 times per year.
.LeftFooter = "&""CG Times (W1),Bold""&8Feb. 01, 2006"
' Looking to put Contract # in CenterFooter (from cell E4 of sheet c1)
.CenterFooter = ""
.RightFooter = "&""CG Times (W1),Bold""&8&F &A"
.FooterMargin = Application.InchesToPoints(0.25)
End With
' The following selection "ungroups" the array
Sheets("c1").Select
End Sub

Thanks in advance for any help and direction.