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!


.