Combing text and cell contents in header

Hi

I wish to combine some text "Due date" and the contents of a cell in a left header, I've experimented and created the following but, the text is ignored. Everything else 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 = "&26Due Date"
         ws.PageSetup.LeftHeader = "&26 " & ActiveSheet.Range("J3").Value
             ws.PageSetup.CenterHeader = "&26New Order"
        ws.PageSetup.RightHeader = "&26 " & ActiveSheet.Range("D2").Value
Next ws
End Sub

'

Any ideas?