Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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