This works great. Hats off to you.

"Don Guillett" wrote:

Put this in the ThisWorkbook module.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.CenterHeader = Format(Date, "mmmm")
End With
End Sub


--
Don Guillett
SalesAid Software

"Dar" wrote in message
...
Is it possible to have a Month formula in a custom header, so that as the
new
month begins, the header will display the Name of the Month.
Example, =Text(Today(),"mmmm") will show December right now in a cell, and
when January arrives, will show January.
But I want somehow to have the Month show up in the header, since others
will be using the worksheet and don't want to have to change the header
themselves.