Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Set the center footer to file path
Sub FilePathInFooter()
  Dim i As Integer, FilePath As String
  
  FilePath = ActiveWorkbook.FullName
  For i = 1 To Worksheets.Count Step 1
    Worksheets(i).PageSetup.CenterFooter = FilePath
  Next i
End Sub