Help with Header

[Guest]

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

 

[Guest]

Hi
not tested but try:
..PageSetup.LeftHeader = "&""Arial,Bold""" & Format(Sheets("SUMMARY").Range
_("C1").Text, "[$-409]mmmm d, yyyy;@")

 

[Tom Ogilvy]

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

--
Regards,
Tom Ogilvy

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