Macro button to insert cell contents in header

[dahouse]

I'm trying to figure out a way to insert cell contents into a header automatically. I put together quotes for several people, and id like to be able to "click" a button and have the correct information populate the header. It will only be on one sheet so I am using the right click on sheet>view code method.

[stnkynts]

Need more specifics. ie. What do you want to go where?

A copy of your workbook or screenshots with before and after examples always helps

[xlbiznes]

Hi,

It would be better if you could post a sample file for others to understand your requirements and advise accordingly.

[xlbiznes]

@stnkynts ,

Sorry my page was not refreshed with your post.

[dahouse]

I can't post the file per regs, but I have a multiple sheets in a file that I use to quote projects. I can put the information in any cell and remove it from the print field, but I want a button with each person's name on it. When I click the button, I need the right header to populate with their info. I have salesman all over the country, so I'm tired of changing the name, address, phone number, and email each time I put a quote together.

[xlbiznes]

Hi,

Use this code below.

Please Login or Register  to view this content.

[dahouse]

That works. My current code looks like this, to populate the Right header only:

Private Sub RoundedRectangle4_Click()
'Header for salesman X
With ActiveSheet.PageSetup
.RightHeader = "Account Manager - XXXXX Division"
End With
End Sub


Is there a way to format the text so I can add multiple lines under this one? I need name, then on the next line I need division, then street, then city/state/zip, then phone numbers, etc. I'll need 7 lines total.

[xlbiznes]

@dahouse,

Use this code. Separate the fields with Chr(10) , which is basically equivalent to new line.

Please Login or Register  to view this content.

[dahouse]

That works exactly as advertised. Is there a way to set the font size in the code as well?

[xlbiznes]

Hi,

Try this code.

Please Login or Register  to view this content.