Macro changes Header/Footer to all worksheets

I'm looking for a macro or VBA code that can copy the header/footer and apply them to other worksheets. I have found code to copy to all worksheets but I only want the next two worksheets to have the copied header/footer and not copy to all the worksheets.

I have 6 worksheets the first 3 are schedules, the only thing that will be changed in the header/footer will be work periods. example 12/20/09-01/20/10, all other info will be the same. Is there another way to change the dates without having to open each one and manually changing the date. Any thoughts or ideas are welcomed.

Hello,
could you post what code that you have so far, and possable a sample workbook.

you say that there are a toatl of 6 worksheets and the 1st 3 sheets are schedules and you only want to copy the header/footer to the next 2 sheets. Do you meant that you only want it copied to the two sheets after the 3 schedules based on their tab location.

cheers

Here is the workbook and code:

Sub Macro1()
     '
     ' Macro1 Macro
     ' Macro recorded 07/07/2008 by Gerry McNally
     '
    Dim i As Long
     
    With Worksheets(1).PageSetup
         
        For i = 2 To Worksheets.Count
             
            Worksheets(i).PageSetup.LeftHeader = .LeftHeader
            Worksheets(i).PageSetup.CenterHeader = .CenterHeader
            Worksheets(i).PageSetup.RightHeader = .RightHeader
            Worksheets(i).PageSetup.LeftFooter = .LeftFooter
            Worksheets(i).PageSetup.CenterFooter = .CenterFooter
            Worksheets(i).PageSetup.RightFooter = .RightFooter
        Next i
    End With
     
End Sub

Duplicate post, sorry.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.
To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

Your first thread has managed to break two rules, actually 3 because it is posted in the wrong Forum.
I suggest you take a few minutes to actually rea the Forum Rules that you agreed to when joining, then make the required edits before posting again.

look like you fixed the thread. cheers.

im a little confused on what you are aming for,
seams that the workbook is setup for a 4 week peiod. and changing Supervisors A1 should flow though to the other sheets. just update the formular in the weeks 2-4 sheets to =Supervisors!A1+7 week 3 =Supervisors!A1+14 ect.

if ive missed the mark, ill need you to explain again.

cheers

ok try changing the line

For i = 2 To Worksheets.Count

to

For i = 2 to 3

cheers

no probs, glad to help.

cheers