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...
How many workbooks is it?
You can group the sheets and apply the header and footer automatically, just remember to ungroup the sheets before you save.
Do you know vba? I am guessing there is a way to batch automate it if everything is in the same folder but I haven't done it before.
Its roughly 400 files.
I am starting to teach myself VBA but don't know it well enough yet.
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.
Thank you for the insight! I will work on my VBA skills. For this task, I sucked it up and...had an intern do it.
Someone should make a plug-in for this though, I feel like it could be pretty useful.
Deserunt in et quis consequuntur placeat. Aliquam quidem et nemo sapiente nulla placeat incidunt. Non omnis veritatis eos dolores.
Consequatur tempora eum inventore beatae minima. Voluptatem tempora tenetur omnis iste autem repellendus quaerat.
See All Comments - 100% Free
WSO depends on everyone being able to pitch in when they know something. Unlock with your email and get bonus: 6 financial modeling lessons free ($199 value)
or Unlock with your social account...