Font size in header

I'm displaying cell contents in the header and all is fine with the exception of the left header. Please see attached pic. For some reason the cell contents, which are in a date format, fill the sheet and even if I alter the font size remain distorted. If I leave them in their default size it works okay.

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

Any ideas?

You need a space or the first part of the date is treated as part of the font size.

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