Please Note: This article is written for users of the following Microsoft Excel versions: 97, 2000, 2002, and 2003. If you are using a later version (Excel 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Excel, click here: Leading Zeros in Page Numbers.
Written by Allen Wyatt (last updated May 30, 2020)
This tip applies to Excel 97, 2000, 2002, and 2003
Jackie asked if there was a way to include leading zeroes in the page numbers placed in a footer. She needs her page numbers to always be five characters long, with leading zeroes, as necessary, to fill out the length. Thus, page numbers would be 00001, 00002, etc.
Excel doesn't provide very good formatting for its page numbers. One solution (perhaps the most viable) is to print each page in your worksheet, one at a time, changing the page number as you go. This macro takes that approach:
Please Note:
This article is written for users of the following Microsoft Excel versions: 97, 2000, 2002, and 2003. If you are using a later version (Excel 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Excel, click here:
Sub FormattedPageNums()
Dim iPages As Integer
Dim J As Integer
Dim sFormat As String
sFormat = "00000"
' Get count of pages in active sheet
iPages = ExecuteExcel4Macro("Get.Document(50)")
With ActiveSheet
For J = 1 To iPages
.PageSetup.CenterFooter = Format(J, sFormat)
.PrintOut From:=J, To:=J
Next J
End With
End Sub
The macro discovers how many pages are in the entire printout, and then steps through each page of that printout. Prior to printing each page, individually, the .CenterFooter property is set equal to a formatted string that represents the page number with leading zeros.
You can modify the macro, as desired, to place different information in the footer. You could also change the area of the footer that is changed by using .LeftFooter or .RightFooter instead of .CenterFooter.
Note:
ExcelTips is your source for cost-effective Microsoft Excel training. This tip (3055) applies to Microsoft Excel 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Excel (Excel 2007 and later) here: Leading Zeros in Page Numbers.
Create Custom Apps with VBA! Discover how to extend the capabilities of Office 365 applications with VBA programming. Written in clear terms and understandable language, the book includes systematic tutorials and contains both intermediate and advanced content for experienced VB developers. Designed to be comprehensive, the book addresses not just one Office application, but the entire Office suite. Check out Mastering VBA for Microsoft Office 365 today!
Need to copy headers and footers from one worksheet to another? How about from one workbook to another? Here are some ...
Discover MoreWhen you have a worksheet that includes a long list of names, you may want the first and last names on each page to ...
Discover MoreWhen creating headers and footers in an Excel worksheet, you can use special codes to add or format information. This tip ...
Discover MoreFREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
There are currently no comments for this tip. (Be the first to leave your comment—just use the simple form above!)
Got a version of Excel that uses the menu interface (Excel 97, Excel 2000, Excel 2002, or Excel 2003)? This site is for you! If you use a later version of Excel, visit our ExcelTips site focusing on the ribbon interface.
FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2025 Sharon Parq Associates, Inc.
Comments