Happy New Year
--
Bernard V Liengme
Microsoft Excel MVP
www.stfx.ca/people/bliengme
remove caps from email

"pokdbz" wrote in message
...
I had the code on a worksheet not the workbook. Thanks for the help.

"Bernard Liengme" wrote:

This works just fine for me so I wonder if you have placed the code in
the
correct place.
This is a workBOOK sub so right click the Excel icon (next to File) on
the
Excel menu bar (not the VB editor) and select View Code. This is where
the
code should be
OR In VBEdtior click ThisWorkbook for the current workbook in the Project
window
best wishes
--
Bernard V Liengme
Microsoft Excel MVP
www.stfx.ca/people/bliengme
remove caps from email

"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