Predeterminar paginas? (excel)

[SidV]

Excel es mucho mas incompleto que su hermanito Word, en este caso. La opcion para predeterminar la configuracion de las paginas, no existe en Excel.

He estado investigando como puedo hacer para salvar este problema, a traves de un macro llamado "predeterminar()" ...
Lo logro, pero los cambios se aplican en la "hoja activa" ... cuando yo quiero que se aplique a todas las hojas que tenga el archivo que ejecute dicho Macro... me explico?

Macro:

Código:

Sub Predeterminar()
'
' Predeterminar Macro
' Configuracion predeterminada de Paginas
'
' Acceso directo: Ctrl+Mayús+P
'
    
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Sheets
         'False to extend the current selection to include
         ' any previously selected objects and the specified object
        ws.Select False
    Next ws
    Application.ScreenUpdating = True
    
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = "&8&F" & Chr(10) & "&A"
        .LeftMargin = Application.InchesToPoints(0.590551181102362)
        .RightMargin = Application.InchesToPoints(0.393700787401575)
        .TopMargin = Application.InchesToPoints(0.590551181102362)
        .BottomMargin = Application.InchesToPoints(0.590551181102362)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
End Sub

Como podran observar, la configuracion cambia los margenes y el pie de pagina UNICAMENTE.

Si bien el macro selecciona todas las hojas activas, no cambia la configuracion de pagina en todas, sino solamente en la primera... y no hay san google que me salve!!!

Podran hacer algo?
Espero que si...