Headers/Footers

[Sue]

Is there a way to have the same header throughout a
workbook without having to change each individual
worksheet?

 

[Paul B]

you wanted a header, change footer to header

Sue, you could use a macro, something like this

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'It cycles through all sheets and puts the path in the left footer.
Dim sht As Worksheet
For Each sht In ThisWorkbook.Sheets
sht.PageSetup.LeftFooter = "&8" & _
ThisWorkbook.FullName
Next sht
End Sub

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **