cfalcorp

hola Buena tarde, amigo, cordial saludo, espero estes bien requiero de tu ayuda

en un foro diste esta solucion para que al abrir excel, se abriera ajustando el zoom a la pantalla:

Private Sub Workbook_Open()
Application.EnableEvents = False
Application.DisplayFullScreen = True
Hoja1.Range("A1:K38").Select
ActiveWindow.Zoom = True
Hoja1.Range("A1").Select
Application.EnableEvents = True
End Sub

yo lo estoy usando hasta aqui y funciona de maravilla

Private Sub Workbook_Open()

Application.EnableEvents = False

Application.DisplayFullScreen = True

Hoja1.Range("A1:K38").Select

ActiveWindow.Zoom = True

la cuestión es que el libro tiene 2 hojas y no se como programar tu macro para que funcione para las dos hojas al abrir el archivo. mil gracias por tu ayuda.