Code from Ron de Bruin's site on Print Tips.

http://www.rondebruin.nl/print.htm

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
.RightHeader = "Your Header info"
ActiveSheet.PrintOut From:=1, To:=1
.RightHeader = ""
ActiveSheet.PrintOut From:=2, To:=TotPages
End With
End Sub


Gord Dibben Excel MVP

On Wed, 27 Apr 2005 14:51:19 -0700, "Excel headers" <Excel
wrote:

I know how to put a header on an excel spreadsheet but is there a way to make
it appear on the first page only?