Copy Cell Value (text) to Header?

[theFrog]

I want to grab the text in a cell (company's name) and automatically copy it
to the header using a macro.

Thanks for any help.
Mike

 

[Chip Pearson]

Mike,

Try something like

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


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com [email protected]