Sub FooterWithPage()
' Written by Barrie Davidson
Dim Mydoc As String

   Mydoc = ActiveWorkbook.FullName
      With ActiveSheet.PageSetup
         .LeftFooter = Mydoc 
      End With

End Sub

Sub PathFooter()
ActiveSheet.PageSetup
LeftFooter=ActiveWorkbook
FullName
End sub

Sub SetFooter()
' SetFooter - set a standard footer with path, filename, author, date and pages
' 23/07/99 by Ed Ferrero
Dim tmp As String
Dim fnt As String
Dim auth As String

' set a temporary variable to show path and filename
  tmp = ActiveWorkbook.Path
  tmp = tmp & "\" & ActiveWorkbook.Name

' set a temporary variable with the font name - I use Tahoma here
' but you can change to a font that suits you best
  fnt = """Tahoma"""
  
' set the auth variablebyy reading the DocumentProperties collection
' Change File Properties in an Excel workbook to change this
  auth = ActiveWorkbook.BuiltinDocumentProperties( 3 )

' set the PageSetup properties
  With ActiveSheet.PageSetup
    .LeftFooter = "&" & fnt & "&9 File: " & tmp & "     &D : &T : Original by - " & auth
    .RightFooter = "&" & fnt & "&9 Page: &P of &N"
  End With

End Sub