Setting CenterFooter on Multiple Worksheets

[Guest]

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?

 

[Guest]

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

 

[Guest]

Thank you. My problem is solved.

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