Right-click on a sheet tab and "Select all sheets"

Set up the header on active sheet and will be done to all.

This can lead to some problems if you want other print settings different
for each sheet.

I would tend to use a macro so other print settings do not get altered.

Sub AllHeaders()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Sheets
WS.PageSetup.CenterHeader = "&""Algerian,Regular""&16" _
& "This is my header text"
Next
End Sub


Gord Dibben MS Excel MVP


On Sat, 19 Sep 2009 11:04:02 -0700, lemorse
wrote:

I wish to put the same header on all sheets of a workbook. I have checked
the help resources but could not find anything. Can anyone help me.
Thanks in advance.