Working with headers in pagesetup

I want to add a header as below. However, I want to replace the word "Test"
with a variable. How do I do that and still retain the formatting?

With ActiveSheet.PageSetup
.CenterHeader = "&""Arial,Bold""&14Test"
End With


Thanks

Hi Okie

With ActiveSheet.PageSetup
..CenterHeader = "&""Arial,Bold""&14" & _
ActiveSheet.Range("M1")
End With
--

-----
XL2003
Regards

William

willwest22@yahoo.com


"OkieViking" <OkieViking@discussions.microsoft.com> wrote in message
news:E469C8F1-5081-4266-A21E-6948F7B20640@microsoft.com...
>I want to add a header as below. However, I want to replace the word
>"Test"
> with a variable. How do I do that and still retain the formatting?
>
> With ActiveSheet.PageSetup
> .CenterHeader = "&""Arial,Bold""&14Test"
> End With
>
>
> Thanks

Dim myvar
Dim hdr
myvar = ??? 'replace the word "Test"
hdr = "14"& myvar

With ActiveSheet.PageSetup
.CenterHeader = "&""Arial,Bold""&hdr"
End With

Should get you close to what you want
Mike F
"OkieViking" <OkieViking@discussions.microsoft.com> wrote in message
news:E469C8F1-5081-4266-A21E-6948F7B20640@microsoft.com...
>I want to add a header as below. However, I want to replace the word
>"Test"
> with a variable. How do I do that and still retain the formatting?
>
> With ActiveSheet.PageSetup
> .CenterHeader = "&""Arial,Bold""&14Test"
> End With
>
>
> Thanks