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.

 

Ipsam ipsum laudantium blanditiis soluta deleniti. Aut est laboriosam deserunt est nihil facere hic. Doloremque soluta repudiandae nobis architecto aut est.

Reiciendis quo at qui dolores quidem consequatur placeat. Fugit molestiae sapiente id temporibus ut. Dolores consequatur sequi voluptatibus et. Sequi blanditiis ducimus aut ea. Distinctio cum voluptas architecto a esse illum similique.

Assumenda qui et dolor aut iste. A architecto doloremque ipsa. Voluptas eaque eligendi et fugiat nobis laborum sapiente.

Qui sunt ea repellendus. Exercitationem voluptas nobis et voluptas. Magni ut nemo consectetur fuga. Sed aperiam explicabo eligendi alias maxime vel. Dolorum eos nihil at earum error aliquid. Quis distinctio veniam autem.

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

Career Advancement Opportunities

July 2026 Investment Banking

  • Evercore 01 99.4%
  • Moelis & Company 01 98.9%
  • JPMorgan 01 98.3%
  • Guggenheim Partners 01 97.7%
  • Morgan Stanley 07 97.2%

Overall Employee Satisfaction

July 2026 Investment Banking

  • Moelis & Company No 99.4%
  • Evercore No 98.9%
  • Morgan Stanley 01 98.3%
  • Banco Santander 02 97.7%
  • BMO Capital Markets 12 97.2%

Professional Growth Opportunities

July 2026 Investment Banking

  • Evercore 01 99.4%
  • Moelis & Company 01 98.9%
  • Morgan Stanley 06 98.3%
  • Goldman Sachs 01 97.7%
  • JPMorgan 01 97.2%

Total Avg Compensation

July 2026 Investment Banking

  • Vice President (16) $429
  • Associates (46) $258
  • 3rd+ Year Analyst (8) $210
  • 2nd Year Analyst (22) $179
  • Intern/Summer Associate (14) $159
  • 1st Year Analyst (80) $150
  • Intern/Summer Analyst (73) $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
kanon's picture
kanon
99.0
3
Secyh62's picture
Secyh62
99.0
4
BankonBanking's picture
BankonBanking
99.0
5
GameTheory's picture
GameTheory
98.9
6
dosk17's picture
dosk17
98.9
7
CompBanker's picture
CompBanker
98.9
8
Betsy Massar's picture
Betsy Massar
98.9
9
DrApeman's picture
DrApeman
98.9
10
Mimbs's picture
Mimbs
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...”