Data in every page footer

[adamsm]

Hi,

How could I make the data in cells to appear on every page footer as I print the sheet.

At present I have put the texts that I want to appear on each pages footer at the end of each page.

But my intention is to put the texts that I want to appear on each page footer once on the sheet and when printed; it to appear on each page.

I hope I have made my question clear.

Any help on this would be kindly appreciated.

Thanks in advance.

[Bob Phillips]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = "Some footer text"
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

[adamsm]

Sorry for being late to respond. But thanks for the help XLD. I do really appreciate your help.