Question

I have a workbook with ten different spreadsheets inside it. Each spreadsheet has a header that follows this format: “Project Name – Name of Spreadsheet – Revision Date:”.

For instance, example spreadsheet headers should look like this:

"Test Project - Form 1 - Revision Date: "
"Test Project - Form 2 - Revision Date: "
"Test Project - Form 3 - Revision Date: "

And so on..

I would like to accommodate the user by only making them type the “Project Name” one time, and then it would auto-fill the rest of the headers with that value. I know it can be done quite easily with cells, but I’m not very experienced with Excel. Can this be done with headers?

Answer 1

If you mean the header which can only be seen in the Layout View and the Print Preview, that cannot be set using simple excel functions. You should do it in a macro.

If you store the project name in the cell A1, and the revision date in the cell B1, then you could place a button to the same sheet. The text of the button could be “Fill Headers”, and the macro that it would run is this code:

Sub FillHeaders()

    For Each wSheet In ActiveWorkbook.Worksheets

        If wSheet.Name <> "Cover Page" Then

            wSheet.PageSetup.CenterHeader = _
                ActiveSheet.Range("A1") & " - " & _
                wSheet.Name & " - Revision date: " & _
                ActiveSheet.Range("B1")

        End If

    Next wSheet

End Sub

This will go through all sheets (except the one named “Cover Page”) and set the center headers to the text you need. Since ActiveWorksheet is the one where you pushed the button, therefore the A1 and B1 cells from that sheet will be used in the header text.