Excell

Visitors can check out the Forum FAQ by clicking this link. You have to register before you can post: click the REGISTER link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. View our Forum Privacy Policy.
Want to receive the latest contracting news and advice straight to your inbox? Sign up to the ContractorUK newsletter here. Every sign up will also be entered into a draw to WIN £100 Amazon vouchers!

You are not logged in or you do not have permission to access this page. This could be due to one of several reasons:

You are not logged in. If you are already registered, fill in the form below to log in, or follow the "Sign Up" link to register a new account.
You may not have sufficient privileges to access this page. Are you trying to edit someone else's post, access administrative features or some other privileged system?
If you are trying to post, the administrator may have disabled your account, or it may be awaiting activation.

Spacecadet replied

14 February 2007, 12:47

macros:

Code:

Sub SetAllHeaders()

    Dim wsheet As Worksheet
    Dim basesheet As String
    
    basesheet = "sheet1"
    
    For Each wsheet In Worksheets
    
    If wsheet.Name <> basesheet Then
    
    
       With wsheet.PageSetup
           .LeftHeader = Sheets(basesheet).PageSetup.LeftHeader
           .CenterHeader = Sheets(basesheet).PageSetup.CenterHeader
           .RightHeader = Sheets(basesheet).PageSetup.RightHeader
           .LeftFooter = Sheets(basesheet).PageSetup.LeftFooter
           .CenterFooter = Sheets(basesheet).PageSetup.CenterFooter
           .RightFooter = Sheets(basesheet).PageSetup.RightFooter
       End With
       
    End If
    
    Next wsheet
End Sub

obviously you'll need to tailor it for your needs!

Last edited by Spacecadet; 14 February 2007, 14:01.