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

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.

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

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

--
Regards,
Tom Ogilvy


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

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

That was embarrasingly simple! Thank you.

"Tom Ogilvy" wrote:

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

--
Regards,
Tom Ogilvy


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