| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Setting CenterFooter on Multiple Worksheets
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? |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Setting CenterFooter on Multiple Worksheets
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? |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Setting Preferences for Multiple Worksheets | Excel Worksheet Functions | |||
| Setting column widths the same on multiple worksheets | Excel Discussion (Misc queries) | |||
| Setting PageSetup Properties in Multiple Worksheets | Excel Programming | |||
| Copy Contract Number to CenterFooter on multiple sheets | Excel Programming | |||
Linear Mode
