No, no, solo cambia el Sub por lo que te puse.
El Loop ese lo pones en la parte del código donde deseas que se 'predeterminen' las Hojas.
El todo sería algo parecido a esto:
Código PHP:
Sub Predeterminar(Hoja As Worksheet)
'
' 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 Hoja.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Hoja.PageSetup.PrintArea = ""
With Hoja.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
Sub PredeterminarTodos()
Dim Hoja As Worksheet
For Each Hoja In ActiveWorkbook.Sheets
Predeterminar Hoja
Next Hoja
End Sub