I have the following code that puts the date value that I want into the
header of all worksheets.

Sub DateInHeader2()
Dim S As Worksheet
For Each S In ActiveWorkbook.Worksheets
S.PageSetup.LeftHeader = Format(Sheets("SUMMARY").Range("C1").Text, _
"[$-409]mmmm d, yyyy;@")
Next
End Sub

Now I need to be to able format the text to bold. Below is a sample that I
recorded to format the header to bold but I can not figure out how to
incorpate this info into the above code.

..LeftHeader = "&""Arial,Bold""January 1, 2004"

Please help