Cell Values In The Header
You can include the value of a cell in the header. For example, the following code will
put the value of cell B5 on Sheet2 into the header of the activesheet.
Full File Name In The Header
The following code will place the full file name, including the path, into the header
of the active worksheet.
ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName
Fonts And Font Sizes
You can insert control codes to customize the font, font attributes (bold, italics,
etc), and font size. The control code used in the header string is the ampersand &.
The code below will create put the follow formatted text in the header.
Some Bold Courier New Size 10 Text
Worksheets("Sheet2").PageSetup.LeftHeader = _
"Some&B&""Courier New""&10 Bold Courier New Size
Note that since the font name must be enclosed in quotes in the header string itself,
you must use two double quotes in VBA.
See Formatting Codes For Headers And Footers in the VBA help files for a
complete list of control sequences.
Where To Put VBA Code
If you are using Excel97, you can include the VBA code to set up your page headers and
footers in the Workbook's BeforePrint event procedure. For more information about
event procedures, click here.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim WS As Worksheet
For Each WS in Worksheets
WS.PageSetup.LeftHeader = ThisWorkbook.FullName & " " & _
This will update the headers each time a worksheet in the workbook is printed.