Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Header code
Thanks Ron... but this still is not pulling in the format
of the source cell. For example. Cell B2 is Bold but the header related to that cell is not. -----Original Message----- Hi Bdavis With ActiveSheet.PageSetup .LeftHeader = "" .LeftHeader = ActiveSheet.Range("b2").Text & Chr (10) & _ ActiveSheet.Range("b3").Text & Chr (10) & _ ActiveSheet.Range("b4").Text End With More info you can find here http://www.cpearson.com/excel/headfoot.htm -- Regards Ron de Bruin http://www.rondebruin.nl "Bdavis" wrote in message ... I am using the following macro to creat header/footers: Sub Footer() ' ' Footer Macro With ActiveSheet.PageSetup .LeftHeader = ActiveSheet.Range("b2").Text & _ ActiveSheet.Range("b3").Text & _ ActiveSheet.Range("b4").Text .CenterHeader = "" .RightHeader = "" .LeftFooter = "&""Times New Roman,Bold""Confidential Draft" .CenterFooter = "&""Times New Roman,Bold""&P of &N" .RightFooter = "" End With End Sub As you can see, the left header is created by combining three cells on the active sheet. What I'd like to do (and can't figure out) is to put carrage returns between those three lines and pull the formatting of the referenced cells inot the header. I thought the above code would do that but it doesn't seem to work... the header remains unformatted. Thanks! . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Omit header from first page without embedding header in code | Excel Worksheet Functions | |||
Does anyone know the code to put a number in the right header... | Excel Discussion (Misc queries) | |||
Does anyone know the code to put a number in the right header and. | Excel Discussion (Misc queries) | |||
Header code | Excel Programming | |||
Code to put contents of A1 and B1 in header | Excel Programming |