This code, placed in the ThisWorkbook code module, automatically picks up
the cell value when printing.


Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFoot*er = Activesheet.Range("A8").Value
End Sub


--

HTH

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


"dbhenkel" wrote in message
...
I want the contents of a specific cell to be in a footer, can I do this?