Headers and Footers

[Nath]

HI

Can anyone tell me how to or where i can look to set the
headers and footers of a spreadsheet using code.

I need to do this as i have one front end sheet, which is
compiled by code and printed out 8 times with different
results, so i am using a loop and printing each in turn,
so i want to tag on the end "Page number " & x & " of " & y
or similar

TIA

Nathan.

 

[Frank Kabel]

Hi
try the following as starting point:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In Me.Worksheets
With wkSht.PageSetup
.CenterHeader = wkSht.range("A1").value
.leftHeader = "&P of &N"
End With
Next wkSht
End Sub

This has to go in your workbook module. It will be executed
automaticall