Copying headers and footers between sheets

L

LauriS

Is this possible? User has a workbook with multiple sheets already set up.
They want to copy the header and footer from one of the sheets to all other
sheets.

I'd like to set it up so that it prompts them for the sheet with the h/f to
be copied and then asks which other sheet(s) to copy it to.

I don't want the actual code (like to struggle through that myself) - just a
helpful shove in the right direction. :)

Lauri
 
J

JLGWhiz

The header and footer is part of the PageSetup. Rather than copy, you could
just use the same PageSetup code for each sheet. This code would put the
header on all sheets. You can work from there.

For i = 1 To Sheets.Count
Sheets(i).PageSetup.CenterHeader = "&"Arial" &12 HeaderText"
Next
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Somewhat complex code to copy data from one sheet to another 9
Formatting and copy or copy and formatting ?? 2
Macro to Format Multiple Sheets based on "Master" Format 0
Copy columns and paste with blank column between 5
Unhide sheet, copy and rename new sheets from list, rehide sheet 8
Copy cell value from one worksheet to matching worksheet in another workbook 4
To get the same header,footer and sheet titles across multiple sheetsof a workbook. 1
Searching for specific name on main sheet then copying row data associated with name 7

Top