Archive of Mr Excel Message BoardArchive of Mr Excel Message Board
Could you please tell me if there is a way in office 97, excel to include a footer that shows the file path not just the file name?
Thank you very much,
regards,
Sharon
Try something like;
Sub Setfooter()
Dim Lft As String, Ctr As String, Rght As String
Lft = ThisWorkbook.FullName
Ctr = 'Or use this space
Rght = 'Or use this space
With ActiveSheet.PageSetup
.LeftFooter = "&""Arial Black,Bold""&12 " & Lft 'ActiveSheet.Range("J1") 'change J1 to your cell input
.CenterFooter = "&""Arial Black,Bold""&8 " & Ctr 'ActiveSheet.Range("K1") 'change K1 to your cell input
.RightFooter = "&""Times New Roman,Bold""&16 " & Rght ' ActiveSheet.Range("L1") 'change L1 to your cell input
End With
end sub
The above is just formatting changes disregard
The important one for you is the Lft footer
Ivan
Type the following code in the immediante window in the VBA editor. This will add the filepath to the current sheet u r in.
ActiveSheet.PageSetup.CenterFooter = activeworkbook.fullname
If ur familiar with macros u can just copy paste this one in a module and run it. It will place the footer in all the sheets on ur current workbook.
Sub addfooter()
For i = 1 To ActiveWorkbook.Sheets.Count
Worksheets(i).PageSetup.CenterFooter = ActiveWorkbook.FullName
Next i
End Sub
Bye ;^)>