Sub FilePathInFooter()
Dim i As Integer, sFilePath As String
sFilePath = ActiveWorkbook.FullName
For i = 1 To Worksheets.Count Step 1
Worksheets(i).PageSetup.CenterFooter = sFilePath
Next i
End Sub