Excel – full path in head and footers

This questions should really be answered by the TechREpublic Team, as it realtes to an article in the Microsoft Office Resource Book.

I am having difficuilty in implementing the Excel TIP – Inserting full file path in headers and footers. Having followed the instructions, I then go back to the workbook and run the macro. The Macro then display an error message Compile Error – Sub or function not defined. I do not know how to corect this.
The code given is as follows by TechRepublic:-
Tools>Macro>VisualBasicEditor>View>Code
Type following:
Sub PathFooter()
ActiveSheet.PageSetup
LeftFooter=ActiveWorkbook
FullName
EndSub

Go to File/Close

Then run the Macro.
Result Error message as detailed above. can anyone help