Try the following code:
With Worksheets("New Worksheet").PageSetup
.CenterHeader = "&""Times New Roman,Regular""&8The Old Header"
End With
This code sets the center header for a worksheet called "New Worksheet" to the text "The Old Header" in regular 8 point Times New Roman font.