Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

For Next Loop with Worksheet

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