Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Set center footer to your string text

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