Setting CenterFooter on Multiple Worksheets
Thank you. My problem is solved.
"Tom Ogilvy" wrote:
Dim sh as Object
Sheets(Array("Cover Sheet", "Interest Rate 1", "Interest Rate 2", _
"Non-financed", "Disclosure WL", "Disclosure UL")).Select
for each sh in ActiveWindow.SelectedSheets
With sh.PageSetup
.CenterFooter = sUpdatedVersionNumber
End With
Next
worksheets("cover sheet").Select
--
Regards,
Tom Ogilvy
"Dkline" wrote:
I am trying to set a version number in the center footer on each of several
worksheets.
Sheets(Array("Cover Sheet", "Interest Rate 1", "Interest Rate 2", _
"Non-financed", "Disclosure WL", "Disclosure UL")).Select
With ActiveSheet.PageSetup
.CenterFooter = sUpdatedVersionNumber
End With
Only seems to be working on the first page - "Cover Sheet". How can I
persuade it to whack the other selected pages as well?
|