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?

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)


"Brian __ Lowe" <Brian __ wrote in message
...
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?

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" wrote:

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)


"Brian __ Lowe" <Brian __ wrote in message
...
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?

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

--

HTH

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


"Brian __ Lowe" wrote in message
...
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" wrote:

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)


"Brian __ Lowe" <Brian __ wrote in
message
...
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?

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

"Bob Phillips" wrote:

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)


"Brian __ Lowe" <Brian __ wrote in message
...
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?

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