Header Font size

  • Thread starter Thread starter Mike Fogleman
  • Start date Start date
M

Mike Fogleman

Can someone point an old man in the right direction here. I am setting a
header font size and using a variable for the header text. This works just
fine:

Dim strAddress As String

Sub Header()
strAddress = "Main St"
Worksheets("Sheet1").PageSetup.CenterHeader = "&24" & strAddress
End Sub

But when there is a number in the string, the font size becomes huge, as in
this:

Dim strAddress As String

Sub Header()
strAddress = "48 Main St"
Worksheets("Sheet1").PageSetup.CenterHeader = "&24" & strAddress
End Sub

Is it syntax or dimmed wrong?

Mike F
 
It would seem that the second figure i.e. the address is also being
interpreted as a font size. Try using strAddress = " 48 Main Street" (space
after the first ")
 
I got that same impression, but I am not sure why??? Since the strAddress
comes from a textbox the following code works, thanks to your suggestion.

Dim strAddress As String

Sub Header()
strAddress = "48 Main St"
strAddress = " " & strAddress
Worksheets("Sheet1").PageSetup.CenterHeader = "&24" & strAddress
End Sub

Mike F
 
Better yet, put the space right after the font size number:

Sub Header()
strAddress = "48 Main St"
Worksheets("Sheet1").PageSetup.CenterHeader = "&14 " & strAddress
End Sub

Mike F
 
Back
Top