Joan, here is a macro by Ron de Bruin that will do it
Sub print_header()
'will print header on 1st page only
'By:
Totpage = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
'******Change this part as needed********
.LeftHeader = "test"
.CenterHeader = "&8Page &8&P & of &N"
'***********************************************
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1
.LeftHeader = ""
.CenterHeader = ""
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=Totpage
End With
End Sub
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 97 & 2000
** remove news from my email address to reply by email **
