Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.LeftFooter = .Range("A1").Text
End With
End Sub

This code should go in the ThisWorkbook code module.

--

HTH

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


"wngg001" wrote in message
...
Any ideas on how to do this?
I'm trying to create a template with the doc reference number in the
footer
However, I'm trying to avoid users having to edit the footer (because this
just wont get done).