Cell content in custom header: How?

[Guest]

I need to show the content of a specific cell in the custom page header when
I print my worksheet.

I'm sure it can be done because I did it way back in Excel 95 or 97, but I
can't find the right search term to locate it in the help, and the wizard
guidance only helps me put file/sheet/date/page data values in there.

So, how do I get the content of cell $D$1 to appear as part of the page
header?

 

[Bob Phillips]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = ActiveSheet.Range("D1").Value
End With
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

That does it - Thanks for the prompt response.

I'm sure back in 95/97 there was some way to insert a reference to a cell in
the dialog. I don't remember dropping in to VBA to do it, but then it was a
long time ago.

Cheers

 

[Bob Phillips]

Not saying there wasn't, but I am not aware of it.

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[igbert]

Hi Bob,

Is there a way to insert a different cell content on to different worksheets
within a workbook?

Example

Sheet 1 : use Cell A1
Sheet 2 : usse Cell F2
Sheet 3 : use Cell M5

Igbert

 

[Mike Polinske]

I would like to do something similar, but I'd like the header to
change with each page. For example:

List of Payments by Branch and Officer
Branch Name: (name of branch for first row on page)
Officer Name (name of officer for first row on page)

I have the report page break on each change in officer. The branch
name and Officer Name data is in the spreadsheet I just have the
columns hidden from view.

Thanks