Insert cell/format/text/fontsize and auto insert into header?

[Guest]

I'd like some help in figuring out how to get my formatted cell A1 text to
print out via a macro print button. I have figured out the macro print
button and how to get the text to printout in the header when the button is
activated by using the following:


ActiveSheet.PageSetup.RightHeader = Range("A1").Value


What do I need to add to the above line to accomplish my goal? I have yet
to be able to figure out how to transfer the formatting, font style and size
into the header.

In cell A1, the user types in a number like "111111111" and the formatting
of the cell inserts "-" and adds 4 zeros to the end and turns out looking
like "1111-111-1-0000". It is this format that I'd like to have sent into
the header upon the printing of the active sheet.

Please help an offer suggestions to a rookie.

Thank you.

 

[Tom Ogilvy]

ActiveSheet.PageSetup.RightHeader = Range("A1").Text

 

[Guest]

That was embarrasingly simple! Thank you.

ActiveSheet.PageSetup.RightHeader = Range("A1").Text