Si te fijas está usando el objeto ActiveSheet (Hoja Activa). Cambia por un parámetro.
Por ejemplo:
Código PHP:
Sub Predeterminar(Hoja As Worksheet)
Luego, reemplaza todos los ActiveSheet por Hoja.
Después, con un bucle For ya se podrá hacer en todas las hojas. Por ejemplo:
Código PHP:
Dim Looping As Single
For Looping = 1 To Worksheets.Count
Predeterminar Worksheets(Looping)
Next Looping