Forum Discussion
kitty2040
Jun 09, 2023Copper Contributor
Excel 365 - Header, Footer, and Print area
I have an Excel workbook with 20 tabs. Each tab has a different header except the date after the description of the particular sheet. I need every sheet to have a footer with a page number starti...
HansVogelaar
Jun 09, 2023MVP
Run this macro:
Sub SetPageNumbers()
Dim wsh As Worksheet
Application.PrintCommunication = False
For Each wsh In Worksheets
With wsh.PageSetup
.FirstPageNumber = 2
.CenterFooter = "&P"
End With
Next wsh
Application.PrintCommunication = True
End Sub- kitty2040Jun 09, 2023Copper Contributor
Thank you, but that did not work.
- HansVogelaarJun 09, 2023MVP
In what way did it fail?
- kitty2040Jun 12, 2023Copper Contributor