Back

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

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

End Sub

Copyright ^© 2001 by Barrie R. Davidson
Added April 6, 2001