VBA ActiveWorkbook error

[Bryce]

I am trying to insert the filename with path in the footer
of an Excel 2000 workbook. I found the following macro
online at

http://support.microsoft.com/default.aspx?scid=kb;en-
us;Q213615.

It worked at first but has stopped working and I don't
know why.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter =
ActiveWorkbook.FullName
End Sub

I am on a Win 2000 system with Excel 2000. I know that
Office 2002 has the ability to do this but not 2000. Any
ideas?

Thanks.