Cell value in footer
 

How can i put the value (text) of a cell in the left footer ?

Cell value in footer
 

You need to use a VBA macro to do that. Assuming the cell value changes, it
would be a BeforePrint event macro.

On Wed, 27 Oct 2004 21:59:00 +0200, "Luc Ferrari \(Thuis\)"
wrote:

How can i put the value (text) of a cell in the left footer ?

Cell value in footer
 

Example : this example use cell A1 of "Sheet1" on each sheet you print

Right click on the Excel icon next to File in the Worksheet menu bar
Choose view code
Paste this event there
Alt-q to go back to Excel

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.LeftFooter = ThisWorkbook.Sheets("Sheet1").Range("A1").Text
Next wkSht
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Myrna Larson" wrote in message ...
You need to use a VBA macro to do that. Assuming the cell value changes, it
would be a BeforePrint event macro.

On Wed, 27 Oct 2004 21:59:00 +0200, "Luc Ferrari \(Thuis\)"
wrote:

How can i put the value (text) of a cell in the left footer ?