Left Footer Error

A

Annette

I have a macro in my workbooks that is set up to automatically update the
page footer with the full path of the file name. This macro use to work
without fail but I have been receiving errors lately when I run the macro. I
can't figure out what is wrong. This is the macro I am using:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
End Sub

My first error is related to the left page footer and then when I cancel out
of the debug I get a memory error and I am booted out of Excel.

Any help would be appreciated.

AJB
 
Top