Some things you have to loop through:

Option Explicit

Sub ContractFooter()
Dim mySheetNames As Variant
Dim iCtr As Long

mySheetNames = Array("c1", "Options", "Pricing", "Notes", "Warranty_CDN", _
"Warranty_USA", "General Info")

For iCtr = LBound(mySheetNames) To UBound(mySheetNames)
With Worksheets(mySheetNames(iCtr)).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
Next iCtr

End Sub




BEEJAY wrote:

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.

--

Dave Peterson