Header Font and Range Value
 

How can I give a Font size to the Range("N3").Value?

How can I combine the following:

With ActiveSheet.PageSetup
.CenterHeader = "&""Times New Roman,Regular""&14MyHeader"

AND

.CenterHeader = Range("N3").Value

Header Font and Range Value
 

try this:

With ActiveSheet.PageSetup
.CenterHeader = "&""Times New Roman,Regular""" & Range("N3")
End With

Should work!

Best,
Andreas


"Helmut" schrieb:

How can I give a Font size to the Range("N3").Value?

How can I combine the following:

With ActiveSheet.PageSetup
.CenterHeader = "&""Times New Roman,Regular""&14MyHeader"

AND

.CenterHeader = Range("N3").Value

Header Font and Range Value
 

Andreas, thanks, how can I also change the Font size in the same line?
thanks
Helmut

"Andreas Reithmayr" wrote:

try this:

With ActiveSheet.PageSetup
.CenterHeader = "&""Times New Roman,Regular""" & Range("N3")
End With

Should work!

Best,
Andreas


"Helmut" schrieb:

How can I give a Font size to the Range("N3").Value?

How can I combine the following:

With ActiveSheet.PageSetup
.CenterHeader = "&""Times New Roman,Regular""&14MyHeader"

AND

.CenterHeader = Range("N3").Value

Header Font and Range Value
 

With ActiveSheet.PageSetup
.CenterHeader = "&""Times New Roman,Regular""&14" & Range("N3").Value


Assumes N3 does not start with a number.

--
Regards,
Tom Ogilvy

"Helmut" wrote:

How can I give a Font size to the Range("N3").Value?

How can I combine the following:

With ActiveSheet.PageSetup
.CenterHeader = "&""Times New Roman,Regular""&14MyHeader"

AND

.CenterHeader = Range("N3").Value

Header Font and Range Value
 

Hi Tom,
I have another line WITH number in the "N3" like this:

.CenterHeader = "&""David,Bold""&16" & Range("mesname").Value
.RightHeader = "îñô' îñø:" & Chr(10) & Range("mesnum").Value

btw the funny characters are Hebrew
How can I add "David,Bold" and "&14" into the .RightHeader where "mesnum" =
1234?

"Tom Ogilvy" wrote:

With ActiveSheet.PageSetup
.CenterHeader = "&""Times New Roman,Regular""&14" & Range("N3").Value


Assumes N3 does not start with a number.

--
Regards,
Tom Ogilvy

"Helmut" wrote:

How can I give a Font size to the Range("N3").Value?

How can I combine the following:

With ActiveSheet.PageSetup
.CenterHeader = "&""Times New Roman,Regular""&14MyHeader"

AND

.CenterHeader = Range("N3").Value

Header Font and Range Value
 

As prevously posted (and tested)

Sub ABC()
With ActiveSheet.PageSetup
.CenterHeader = "&""Times New Roman,Regular""&14" & Range("N3").Value
End With
End Sub

with the prvevious caution.

--
Regards,
Tom Ogilvy


"Helmut" wrote:

Andreas, thanks, how can I also change the Font size in the same line?
thanks
Helmut

"Andreas Reithmayr" wrote:

try this:

With ActiveSheet.PageSetup
.CenterHeader = "&""Times New Roman,Regular""" & Range("N3")
End With

Should work!

Best,
Andreas


"Helmut" schrieb:

How can I give a Font size to the Range("N3").Value?

How can I combine the following:

With ActiveSheet.PageSetup
.CenterHeader = "&""Times New Roman,Regular""&14MyHeader"

AND

.CenterHeader = Range("N3").Value

Header Font and Range Value
 

Hi Tom,
I have another line WITH number in the "N3" like this:

.CenterHeader = "&""David,Bold""&16" & Range("mesname").Value
.RightHeader = "îñô' îñø:" & Chr(10) & Range("mesnum").Value

btw the funny characters are Hebrew
How can I add "David,Bold" and "&14" into the .RightHeader where "mesnum" =
1234?


"Tom Ogilvy" wrote:

With ActiveSheet.PageSetup
.CenterHeader = "&""Times New Roman,Regular""&14" & Range("N3").Value


Assumes N3 does not start with a number.

--
Regards,
Tom Ogilvy

"Helmut" wrote:

How can I give a Font size to the Range("N3").Value?

How can I combine the following:

With ActiveSheet.PageSetup
.CenterHeader = "&""Times New Roman,Regular""&14MyHeader"

AND

.CenterHeader = Range("N3").Value