Update header and footer on all sheets in a workbook

    Browse: Home / Update header and footer on all sheets in a workbook

This little beauty runs throught all your sheets and updates the header and footer. Modify where needed to fit your needs!
Put this in your Personal.xls macros, and use it for all your files.

Sub Header_Footer_All_Sheets()
Set wkbktodo = ActiveWorkbook
For Each WS In wkbktodo.Worksheets
With WS.PageSetup
        .LeftHeader = ""
        .CenterHeader = "&""-,Bold""&14&A"
        .RightHeader = ""
        .LeftFooter = "&9Bestandslocatie: &Z&F" & Chr(10) & "Geprint op &D &T"
        .CenterFooter = ""
        .RightFooter = "&9Pagina &P van &N"
        .ScaleWithDocHeaderFooter = False
End With
Next
End Sub

Source: Excelforum.com

«
»