Increase header font size

**Steven811** · 04-21-2010, 03:32 AM

Hi

I wish to increase the font size of the text in my header. This is the code that I've used to generate the text.

Can anyone help

Sub TE_Add()
'
'
'Add D2 from active sheet to each sheets's header
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
             ws.PageSetup.CenterHeader = "New Order"
        ws.PageSetup.RightHeader = ActiveSheet.Range("D2").Value
    Next ws
End Sub

Please note that I have previously posted this in general help and didn't receive any replies and believe that this form is more suitable.
http://www.excelforum.com/excel-gene...in-header.html

Thanks
Steven811

**MarMo** · 04-21-2010, 04:16 AM

Hi Steven811
I found these links with some code u could use

Excelforum : set header font size using a variable?
http://www.excelforum.com/excel-prog...-variable.html

Ozgrid : Header, size and font problem
http://www.ozgrid.com/forum/showthread.php?t=22444

Hope these help.

**Steven811** · 04-22-2010, 03:41 AM

I've managed to increase the font size of the text that I am displaying 'New Order' but, increasing the size of the cell contents D2 that I'm also wanting to display as the right header header remains a mystery. The code now looks like

            ws.PageSetup.CenterHeader = "&26New Order"
        ws.PageSetup.RightHeader = ActiveSheet.Range("D2").Value

I've looked at the code that is created when I record a macro but I've been unable to get any of it to work.

Any ideas?

**MarMo** · 04-22-2010, 04:07 AM

Steven ,

Just add the "&26" ( fontsize ) before the range value (see code below)
there are other format codes for Headers and Footers (see help in Excel)

            Sub TE_Add()
'
'
'Add D2 from active sheet to each sheets's header
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
            ws.PageSetup.CenterHeader = "&""Arial""&14New Order"
            ws.PageSetup.RightHeader = "&10" & ActiveSheet.Range("D2").Value
    Next ws
End Sub