try:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
ActiveSheet.PageSetup.RightHeader = ActiveSheet.Range("K1").Value + 1
End If
End Sub


"Jennifer-Houston, TX" wrote:

have it change everytime you print. I got a great answer last time in the
cell format, but now I need to put it in the header part.

This is what I am using to do the regular printing:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
ActiveSheet.Range("K1").Value = ActiveSheet.Range("K1").Value + 1
End If
End Sub

I am still learning and would like to know how to change it to the right
header.
Thanks,
Jennifer