Setting CenterFooter on Multiple Worksheets

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Dkline - 23 Feb 2007 15:21 GMT

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?

Reply to this Message

Tom Ogilvy - 23 Feb 2007 15:26 GMT

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

Signature

Regards,
Tom Ogilvy

> I am trying to set a version number in the center footer on each of several
> worksheets.
[quoted text clipped - 7 lines]
> Only seems to be working on the first page - "Cover Sheet". How can I
> persuade it to whack the other selected pages as well?

Reply to this Message

Dkline - 23 Feb 2007 15:37 GMT

Thank you. My problem is solved.

> Dim sh as Object
> Sheets(Array("Cover Sheet", "Interest Rate 1", "Interest Rate 2", _
[quoted text clipped - 17 lines]
> > Only seems to be working on the first page - "Cover Sheet". How can I
> > persuade it to whack the other selected pages as well?

Reply to this Message