You need some data on the sheet for this to print.

I tried it and it showed 02/01/2008 - 715.

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"pokdbz" wrote in message
...
I have the following code. I need it to add the result of the formula to
the
footer is there a different way I can do this because what I'm doing now
doesn't show up in the footer.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Date & " - " & Round((Date - 34448)
/
7, 0) + 1
End Sub