.CenterHeader = _
"&""Cushing Book/Bold,Bold""&12Perpetual Art Department Project List
for " & _
Format(Date,"mmm d, yyyy")

HTH
--
AP

"Jan" a écrit dans le message de news:
...
Using Excel 97. I created a macro (s) to change the header depending on
which dept will receive the report. I don't know VBA. In the header
dialog
box, I selected the date icon to insert the date. When I look at the
macro
via the VBA editor it shows as &D. On the report it will print the date
as
5/11/2006. I would like it to print the date as May 11, 2006. How can I
change the following code to format the date as preferred. I have only
listed a few lines of the code.

With ActiveSheet.PageSetup
.LeftHeader = "&""Cushing Book/Bold,Bold""&T"
.CenterHeader = _
"&""Cushing Book/Bold,Bold""&12Perpetual Art Department Project
List
for &D"

Also, if the date is inserted in the header via running a macro, I assume
that the date will not change unless the macro is executed
again....correct?

TIA
Jan