G
Guest
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.
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.