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.

Leading Zeros in Page Numbers

by Allen Wyatt
(last updated November 24, 2015)

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:

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.

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.

Author Bio

Allen Wyatt

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He  is president of Sharon Parq Associates, a computer and publishing services company. ...

MORE FROM ALLEN

Creating Files with Mail Merge

When you use mail merge to create a document that incorporates all your data source records, you end up with a large document ...

Discover More

Quicker Multiple Replace Operations

Need to replace a lot of the same characters very, very quickly? Here's a great way to do the replacement.

Discover More

Saving Portions of Files

Want to save snippets from a document into individual files? There are a couple of easy ways to achieve this goal, as ...

Discover More

Solve Real Business Problems Master business modeling and analysis techniques with Excel and transform data into bottom-line results. This hands-on, scenario-focused guide shows you how to use the latest Excel tools to integrate data from multiple tables. Check out Microsoft Excel 2013 Data Analysis and Business Modeling today!

MORE EXCELTIPS (MENU)

Deleting a Footer

Excel allows you to add footers to the worksheets you create. If you decide you don't need a footer any more, here's how to ...

Discover More

Header and Footer Data Codes

When creating headers and footers in an Excel worksheet, you can use special codes to add or format information. This tip ...

Discover More

Deleting a Header

Each new Excel worksheet contains a page header, by default. Follow this tip to get rid of headers you don't need.

Discover More
Subscribe

FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."

View most recent newsletter.

Comments for this tip:

There are currently no comments for this tip. (Be the first to leave your comment—just use the simple form above!)

This Site

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.

Subscribe

FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."

(Your e-mail address is not shared with anyone, ever.)

View the most recent newsletter.

Links and Sharing
Share