ActiveSheet header including a named range

[Barb Reinhardt]

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

 

[Ron de Bruin]

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")

 

[Barb Reinhardt]

Thanks, that does it.

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")