passing a variable to Page Header

[carsto]

my variable RefNum doesn't pass to the Page Header

RefNum = InputBox("What is the Reference Number?")

    Sheets("Image").Select
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Bold""&14RefNum"
        End With

If I don't include the formatting info it works but I'd like it fomatted

.LeftHeader = RefNum

[Leith Ross]

Hello Carstowal,

This will put the word "RefNum" followed by the RefNum value that was entered.

  RefNum = InputBox("What is the Reference Number?")

    Sheets("Image").Select
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Bold""&14" & "RefNum " & RefNum
        End With

Sincerely,
Leith Ross

[carsto]

Thanks

I didn't really want it to say RefNum & then the Reference Number

but it seems like it needs something in between the "&14" and the variable, though, so I added this blank space & it works!

.LeftHeader = "&""Arial,Bold""&14" & "  " & RefNum

[Leith Ross]

Hello Carstowal,

You are right about the space. It is needed to delimit the end of the format code from the text to display. I should have just given you this code, but thought you might want to label the reference number.

  RefNum = InputBox("What is the Reference Number?")

    Sheets("Image").Select
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Bold""&14 " & RefNum
        End With

Sincerely,
Leith Ross

[carsto]

Thanks for the explanation.
I had tried every imaginable variation except a blank space.
Thanks to you, now I know why!