Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using Range name in Header
I'd like to include the range name in a header. I have the following
Workbook_BeforePrint event Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = _ "&""Arial,Bold""&12 XXX Profile&""Arial,Regular""&10" _ & Chr(10) & "Last date saved: " & Format(ThisWorkbook.BuiltinDocumentProperties("las t save time").Value, "dd-mmm-yyyy") .RightHeader = "" .LeftFooter = "" .CenterFooter = "" & Chr(10) & "&P of &N" .RightFooter = "" End With End Sub I'd like to add the value of the named range where XXX is listed. What do I need to change. Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using Range name in Header
See previous post
-- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Barb Reinhardt" wrote in message ... I'd like to include the range name in a header. I have the following Workbook_BeforePrint event Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = _ "&""Arial,Bold""&12 XXX Profile&""Arial,Regular""&10" _ & Chr(10) & "Last date saved: " & Format(ThisWorkbook.BuiltinDocumentProperties("las t save time").Value, "dd-mmm-yyyy") .RightHeader = "" .LeftFooter = "" .CenterFooter = "" & Chr(10) & "&P of &N" .RightFooter = "" End With End Sub I'd like to add the value of the named range where XXX is listed. What do I need to change. Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
get a range corresponding to a particular col header | Excel Worksheet Functions | |||
Header Font and Range Value | Excel Programming | |||
use a range for a print header | Excel Discussion (Misc queries) | |||
Using a named range in a header with VBA? | Excel Discussion (Misc queries) | |||
Format a header when using Range() | Excel Programming |