Como bloquear hojas que no quiero imprimir

Sigue los pasos de este enlace:

MACRO de excel para imprimir varias hojas de un mismo libro

Pero utiliza 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
        Select Case LCase(h.Name)
            'poner en minúsculas los nombre de hojas
            'para que aparezcan en el listado
            Case "hoja1", "reporte", "matriz", "etc"
            Case Else
                ListBox1.AddItem h.Name
        End Select
    Next
End Sub

Cambia en esta línea los nombre de las hojas por tus hojas que no quieres en el listado

Case "hoja1", "reporte", "matriz", "etc"

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.