Adding Footers to Many Workbooks

Fellow Monkeys -- I hope some of you can help me out.

After adding countless items into the data room for an acquirer, our clients management team decided they wanted to have a specific header and footer in each excel file.

Is there a way to add headers/footers across multiple workbooks? I'd like to streamline this process a little. Also, opening hundreds of files for no real reason sounds awful. Hope there is an answer...

5 Comments
 
Best Response

Try following these, there is no summary I can type that will be more useful than a video.

https://www.youtube.com/watch?v=9tOOa1ll3bE

If you don't mind clicking 400 files and the videos didn't work, this could work.

Lets try a test, Make a new folder for me and copy a small number of workbooks to it. Then change the header and footer in one active book and run this;

"Sub CopyHeaderFooter() Dim PS As PageSetup, WB As Workbook, WS As Worksheet Set PS = ActiveSheet.PageSetup For Each WB In Workbooks For Each WS In WB.Worksheets With WS.PageSetup .LeftHeader = PS.LeftHeader .CenterHeader = PS.CenterHeader .RightHeader = PS.RightHeader .LeftFooter = PS.LeftFooter .CenterFooter = PS.CenterFooter .RightFooter = PS.RightFooter End With Next Next End Sub"

You better quote this to get the spacing right just in case I didn't do it correctly.

 

Iure non aut et dolores. Earum cum ut aliquid quo eos eius.

Molestias doloremque tenetur aperiam doloremque. Molestias quo omnis non. Cum necessitatibus illo error quis ratione et et non. Sapiente error officiis officia est ipsa. Fuga qui iste inventore et nisi sunt odio. Sed consequatur quis quaerat vitae tenetur vero. Atque odio et fuga sed laborum nisi.

Tenetur molestiae culpa omnis asperiores delectus in id consectetur. Occaecati alias quod qui soluta vero et nihil. Occaecati praesentium et ut iusto consequatur enim. Asperiores et esse alias impedit. Et quia odio et ad nihil distinctio.

Ea fuga sint autem quia reprehenderit ullam maxime id. Occaecati qui beatae mollitia libero quia officia excepturi. Molestiae cupiditate nulla commodi qui sed. Neque accusamus harum qui assumenda et. Quaerat assumenda accusantium pariatur nesciunt accusantium dicta.

I am permanently behind on PMs, it's not personal.

Career Advancement Opportunities

June 2026 Investment Banking

  • Evercore 01 99.4%
  • Moelis & Company 01 98.8%
  • JPMorgan 01 98.2%
  • Guggenheim Partners 01 97.7%
  • Morgan Stanley 07 97.1%

Overall Employee Satisfaction

June 2026 Investment Banking

  • Moelis & Company No 99.4%
  • Morgan Stanley 02 98.8%
  • Evercore 01 98.2%
  • BMO Capital Markets 12 97.6%
  • Banco Santander 01 97.1%

Professional Growth Opportunities

June 2026 Investment Banking

  • Evercore 01 99.4%
  • Moelis & Company 01 98.8%
  • Morgan Stanley 05 98.2%
  • JPMorgan No 97.7%
  • BMO Capital Markets 12 97.1%

Total Avg Compensation

June 2026 Investment Banking

  • Vice President (14) $434
  • Associates (43) $259
  • 3rd+ Year Analyst (8) $210
  • 2nd Year Analyst (22) $179
  • Intern/Summer Associate (13) $156
  • 1st Year Analyst (77) $151
  • Intern/Summer Analyst (71) $101
notes
16 IB Interviews Notes

“... there’s no excuse to not take advantage of the resources out there available to you. Best value for your $ are the...”

Leaderboard

1
redever's picture
redever
99.2
2
BankonBanking's picture
BankonBanking
99.0
3
kanon's picture
kanon
99.0
4
Secyh62's picture
Secyh62
99.0
5
CompBanker's picture
CompBanker
98.9
6
Betsy Massar's picture
Betsy Massar
98.9
7
dosk17's picture
dosk17
98.9
8
GameTheory's picture
GameTheory
98.9
9
DrApeman's picture
DrApeman
98.9
10
bolo up's picture
bolo up
98.8
success
From 10 rejections to 1 dream investment banking internship

“... I believe it was the single biggest reason why I ended up with an offer...”