You'll need to use an Event Macro. One way:

Put something like this in your ThisWorkbook code module:

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

If you're not familiar with macros, take a look at David McRitchie's
"Getting Started with Macros":

http://www.mvps.org/dmcritchie/excel/getstarted.htm


In article ,
"GregW" wrote:

I want to create dynamic footers with information in a cell. Is there a way
to do this?