The following code puts the contents of cell A1 of Sheet1 into the left
headere:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = Sheets("Sheet1").Range("A1")
End Sub
1. To add this code to your file, press Alt+F11,
2. In the VBAProject window, top left side, find thisWorkbook under your
file name and double click it.
3. Paste in or type the code above.
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.