Not working... following your directions. What could I be missing here?

Thanks for the quick response.



"Bob Phillips" wrote:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = "This document is invaid after " & Format(Date + 30,
"dd/mm/yyyy")
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


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Scott Wagner" wrote in message
...
I have some controlled documents that occasionally need to be printed,
some
of which are in excel, and need to have a date printed on them when the
printed document should be destroyed. Basically adding a footer that
read:

"This document is invaid after 01/01/2006"

The date should be 30 days after the date the document is printed.

How is this done?

Thanks in advance,

Scott