Macro som kopierer sidefod fra book1 / sheet1 til aktuelt ark

Jeg googlede mig til en løsning/macro:

Sub Set_Pagefooter_All_Sheets()
Dim wkbktodo As Workbook
Dim ws As Worksheet
    Set wkbktodo = ActiveWorkbook
    For Each ws In wkbktodo.Worksheets
        With ws.PageSetup
      .LeftFooter = "&F"
        .CenterFooter = "Page: &P of &N"
        .RightFooter = "Printed: &D : &T"
        End With
    Next ws
End Sub

Så den bruger jeg i stedet for.