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