VB/Excel formatting problem

  • Thread starter Thread starter Don Weiner
  • Start date Start date
D

Don Weiner

I have a VB / Excel97 formatting problem. I want to include the text from
a specific cell on a specific worksheet in the header on a number of
worksheets, and I want the text to be formatted with a specific font. I
can get the header to display the text in the cell or I can get the header
to format text with a specific font, but I cannot get the header to display
the cell's text in the specific font.

e.g.


Sheets("Setup").Select

ActiveSheet.PageSetup.LeftHeader = "&""Times New Roman,Bold""TEST"

displays the word TEST in TNR bold font

OR

ActiveSheet.PageSetup.LeftHeader = Range("B10").Value
displays the contects of cell B10 in the header in Arial
(the default font)

I've tried various combinations of these two commands, but cannot get what
I need. How do I get the header to display the cell text in TNR bold font


Thanx

Don
 
One way:

With Sheets("Setup")
.PageSetup.LeftHeader = _
"&""Times New Roman,Bold""" & .Range("B10").Text
End With
 
Back
Top