Footers

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 ;^)>