Cell Value in a custom header

[skeet4me]

I want to put a cell value in a custom header. How do I do that?

 

[tmischler]

Sub Macro1()


ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Range("a1").Value


End Sub

 

[skeet4me]

That works great, but if I do it that way how do I adjust the font size and make it bold? I know how to do it normally, but not for a header.

 

[Smitty]

Following on what's already been posted:

<font face=Tahoma>ActiveSheet.PageSetup.LeftHeader = "&""Tahoma,Bold Italic""&16" & ActiveSheet.Range("A1").Value</FONT>

HTH,

Smitty

 

[skeet4me]

That did it, thanks!