ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Header Font size (https://www.excelbanter.com/excel-programming/332475-header-font-size.html)

Mike Fogleman

Header Font size
 
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



bigwheel

Header Font size
 
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 ")

Mike Fogleman

Header Font size
 
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

"bigwheel" wrote in message
...
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 ")




Mike Fogleman

Header Font size
 
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

"Mike Fogleman" wrote in message
...
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

"bigwheel" wrote in message
...
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 ")







All times are GMT +1. The time now is 03:04 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com