MACRO de excel para imprimir varias hojas de un mismo libro

Una opción, sería crear un formulario con toda la lista de hojas, con la opción de que elijas las hojas que desees y un botón para enviarlas a imprimir. La idea es esta, presionas un botón en alguna hoja de tu excel y que te aparezca esta ventana con todas las hojas de tu libro.

Para crear el formulario sigue los siguientes pasos:

Instrucciones para crear un UserForm

1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / UserForm
4. En el panel del UserForm creas los siguientes controles un Label, un ListBox y un botón.
5. Para crear un control selecciona el control del cuadro de herramientas y arrástralo al userform

6. Después de poner el control puedes hacerlo más grande.

7. Presiona el botón "Ver Código"

8. En el panel que te abre, pega la siguiente macro

Private Sub CommandButton1_Click()
'Por.Dante Amor
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            h = ListBox1.List(i)
            Sheets(h).PrintOut Copies:=1, Collate:=True
        End If
    Next
End Sub
Private Sub UserForm_Activate()
'Por.Dante Amor
    ListBox1.MultiSelect = 1
    ListBox1.ListStyle = 1
    For Each h In Sheets
        ListBox1.AddItem h.Name
    Next
End Sub

9. Regresa a tu hoja de excel y realiza lo siguiente para poner un botón en una hoja y poder abrir el formulario.

Macro para abrir el formulario

Sub abrir()
UserForm1.Show
End Sub

Sigue las Instrucciones para un botón y ejecutar la macro

1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: abrir
10. Aceptar.
11. Para ejecutarla dale click a la imagen.

Si tienes dudas avísame.

Tengo un problema con la macro en Excel 2010. Al ejecutar Private Sub UserForm_Activate() da error y no se carga el formulario. He probado con Private Sub UserForm_initialize() y tampoco funciona. ¿Sabes a que se puede deber?