I've had difficulty posting this so am not if it's been posted. If this is a
duplicate, please accept my apologies.

I have the following worksheet_beforeprint event

Sub Workbook_BeforePrint(Cancel As Boolean)
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = _
"&""Arial,Bold""&12 TEST: &""Arial,Regular""&10" _
& Chr(10) & "Last date saved: " &
Format(ThisWorkbook.BuiltinDocumentProperties("last save time").Value,
"dd-mmm-yyyy")
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "" & Chr(10) & "&P of &N"
.RightFooter = ""
End With
Application.ScreenUpdating = True
End Sub

For the CENTER HEADER, I want to display the named range PROGRAM prior to
the value TEST. How do I do this?

Thanks in advance

Do you want this Barb

.CenterHeader = _
"&""Arial,Bold""&12" & Range("PROGRAM").Value & " Test:" & _
"&""Arial,Regular""&10" & Chr(10) & "Last date saved: " & _
Format(ThisWorkbook.BuiltinDocumentProperties("last save time").Value, "dd-mmm-yyyy")

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Barb Reinhardt" <(E-Mail Removed)> wrote in message
news:48DF07DC-F78C-4351-8966-(E-Mail Removed)...
> I've had difficulty posting this so am not if it's been posted. If this is a
> duplicate, please accept my apologies.
>
> I have the following worksheet_beforeprint event
>
> Sub Workbook_BeforePrint(Cancel As Boolean)
> Application.ScreenUpdating = False
> With ActiveSheet.PageSetup
> .LeftHeader = ""
> .CenterHeader = _
> "&""Arial,Bold""&12 TEST: &""Arial,Regular""&10" _
> & Chr(10) & "Last date saved: " &
> Format(ThisWorkbook.BuiltinDocumentProperties("last save time").Value,
> "dd-mmm-yyyy")
> .RightHeader = ""
> .LeftFooter = ""
> .CenterFooter = "" & Chr(10) & "&P of &N"
> .RightFooter = ""
> End With
> Application.ScreenUpdating = True
> End Sub
>
> For the CENTER HEADER, I want to display the named range PROGRAM prior to
> the value TEST. How do I do this?
>
> Thanks in advance

Thanks, that does it.

"Ron de Bruin" wrote:

>
> Do you want this Barb
>
> .CenterHeader = _
> "&""Arial,Bold""&12" & Range("PROGRAM").Value & " Test:" & _
> "&""Arial,Regular""&10" & Chr(10) & "Last date saved: " & _
> Format(ThisWorkbook.BuiltinDocumentProperties("last save time").Value, "dd-mmm-yyyy")
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
>
> "Barb Reinhardt" <(E-Mail Removed)> wrote in message
> news:48DF07DC-F78C-4351-8966-(E-Mail Removed)...
> > I've had difficulty posting this so am not if it's been posted. If this is a
> > duplicate, please accept my apologies.
> >
> > I have the following worksheet_beforeprint event
> >
> > Sub Workbook_BeforePrint(Cancel As Boolean)
> > Application.ScreenUpdating = False
> > With ActiveSheet.PageSetup
> > .LeftHeader = ""
> > .CenterHeader = _
> > "&""Arial,Bold""&12 TEST: &""Arial,Regular""&10" _
> > & Chr(10) & "Last date saved: " &
> > Format(ThisWorkbook.BuiltinDocumentProperties("last save time").Value,
> > "dd-mmm-yyyy")
> > .RightHeader = ""
> > .LeftFooter = ""
> > .CenterFooter = "" & Chr(10) & "&P of &N"
> > .RightFooter = ""
> > End With
> > Application.ScreenUpdating = True
> > End Sub
> >
> > For the CENTER HEADER, I want to display the named range PROGRAM prior to
> > the value TEST. How do I do this?
> >
> > Thanks in advance
>
>
>