Excel VisualBasic Script

Sub FilePathInFooter()
  Dim i As Integer
  
  For i = 1 To Worksheets.Count Step 1
    Worksheets(i).PageSetup.CenterFooter = "your center footer"
  Next i
End Sub