' Insert a class module into your Personal Macro Workbook (Personal.xls) and paste the above code. ' Rename the class module to clsFooter. 


Option Explicit
Public WithEvents objApp As Application

Private Sub objApp_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)
    With Wb.ActiveSheet
        .PageSetup.RightFooter = Wb.FullName
    End With
End Sub


