Increase header font size

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