Can I assume all your headers are in one column and in sequential rows?
try this in a module:
Option Explicit
Sub head_and_print()
Dim wsh As Worksheet 'header worksheet
Dim wsp As Worksheet 'printing worksheet
Dim i As Integer
Set wsh = Worksheets("your header sheet name")
Set wsp = Worksheets("the worksheet name that will print")
For i = 1 To 160 'assumes headers are stored in rows 1 to 160
With wsp
.PageSetup.CenterHeader = wsh.Range("A" & i).Value 'assumes you have the headers in column A
.PrintOut
End With
Next i
End Sub
Bookmarks