Copying headers and footers between sheets

  • Thread starter Thread starter LauriS
  • Start date Start date
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
 
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

adding footer to all existing sheets in workbook and also to newsheets which is added 1
Formatting and copy or copy and formatting ?? 2
Somewhat complex code to copy data from one sheet to another 9
Headers and Footers by VBA? 6
Copy columns and paste with blank column between 5
To get the same header,footer and sheet titles across multiple sheetsof a workbook. 1
Unhide sheet, copy and rename new sheets from list, rehide sheet 8
Copy adjacent Sheet and name from a list 42

Back
Top