Please Note: This article is written for users of the following Microsoft Excel versions: 2007, 2010, and 2013. If you are using an earlier version (Excel 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Excel, click here: First and Last Names in a Page Header.

First and Last Names in a Page Header

by Allen Wyatt
(last updated December 28, 2013)

David is administering an election for a professional society and the roster of eligible voters is a worksheet. There are approximately 1,200 eligible voters, so the printout is over twenty pages long. David has a footer with the page number—which is helpful—but it would be great if he could have, in the header of each page, the first name on the page and the last name on the page.

In Excel there is no native way to do this. It is a relative snap to do in Word, however, so one solution is to paste the sorted names into a Word document and then add the desired header that shows the names. While this can work, it becomes a pain to make sure that the Word version of the list is always in sync with the Excel version of the list, and vice-versa.

If you decide you want to keep a single version of the voter list in Excel, the best way to approach the problem is to use a macro to insert the first and last names in the header. The code of such a macro, obviously, would need to be tailored to the layout of the data in your worksheet. The following macro assumes that the names are in columns A through C, with the last names (the ones you want to use for the headers) are in column C.

Sub PrintNamesInHeader()
    Dim iPages As Integer
    Dim iPage As Integer
    Dim iHorPgs As Integer
    Dim iHP As Integer
    Dim iHPNext As Integer
    Dim iCol As Integer
    Dim iColLast As Integer
    Dim lRow As Long
    Dim lRowLast As Long
    Dim sPrtArea As String

    iCol = 1        'Col A
    iColLast = 3    'Col C
    With ActiveSheet
        iPages = ExecuteExcel4Macro("Get.Document(50)")
        iHorPgs = .HPageBreaks.Count + 1
        sPrtArea = .PageSetup.PrintArea

        For iPage = 1 To iPages
            iHP = ((iPage - 1) Mod iHorPgs)
            iHPNext = iHP + 1
            If iHP = 0 Then
                If sPrtArea = "" Then
                    lRow = 1
                Else
                    lRow = .Range(sPrtArea).Cells(1).Row
                End If
            Else
                lRow = .HPageBreaks(iHP).Location.Row
            End If
            If iHPNext > .HPageBreaks.Count Then
                lRowLast = .Cells(lRow, iColLast).End(xlDown).Row
            Else
                lRowLast = .HPageBreaks(iHPNext).Location.Row - 1
            End If
            .PageSetup.LeftHeader = .Cells(lRow, iCol).Value & _
              " - " & .Cells(lRowLast, iColLast)
            .PrintOut From:=iPage, To:=iPage, preview:=True
        Next
    End With
End Sub

When you run the macro, it steps through each page of the worksheet. The headers are set for the page, then the single page is printed, and then the next page is examined and processed.

ExcelTips is your source for cost-effective Microsoft Excel training. This tip (9543) applies to Microsoft Excel 2007, 2010, and 2013. You can find a version of this tip for the older menu interface of Excel here: First and Last Names in a Page Header.

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

Bypassing the BeforeClose Event

Hold down the Shift key as you open a workbook, and Excel bypasses any "startup macros" that may be in the workbook. If you ...

Discover More

Printing Multiple Pages On a Piece of Paper

If you want to save paper on a printout, you might consider printing multiple pages on a single piece of paper. This can be ...

Discover More

No Ribbon on New Documents

The way that you work with commands in Word is primarily through the ribbon. What do you do if the ribbon disappears when you ...

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 (RIBBON)

Putting a Different Date in a Header

Today's date is easy to add to a header, but what if you want to add a date that is adjusted in some manner? Adding ...

Discover More

Specifying the Y Value in X of Y Page Numbering

Page numbers in Excel headers and footers have always been a source of frustration for users. This tip recounts one ...

Discover More

Specifying Date Formats in Headers

Don't like the default date format used by Excel when you place the date in a header or footer? You can use a macro to get ...

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:

If you would like to add an image to your comment (not an avatar, but an image to help in making the point of your comment), include the characters [{fig}] in your comment text. You’ll be prompted to upload your image when you submit the comment. Images larger than 600px wide or 1000px tall will be reduced. Up to three images may be included in a comment. All images are subject to review. Commenting privileges may be curtailed if inappropriate images are posted.

What is nine minus 3?

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 ribbon interface (Excel 2007 or later)? This site is for you! If you use an earlier version of Excel, visit our ExcelTips site focusing on the menu interface.

Newest Tips
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