Take a look here for one way:

http://www.mcgimpsey.com/macoffice/e...infooter2.html


In article ,
"TOMB" wrote:

I would like to create an Add-In which will place the filename into the
footer. I curently use a macro to do this, but I'd like to have this apply to
all files I open (unless I 'turn off' the Add-In).

The macro I currently use is below ....

Sub PrintWithFileNameInFooter()
With ActiveSheet.PageSetup
.LeftFooter = "&8" & _
LCase(ActiveWorkbook.FullName) & " " & ActiveSheet.Name
If .RightFooter = "" Then .RightFooter = "Page &P of &N"
End With
End Sub


Thanks - -TB- -