Tengo varias hojas ocultas y para cada hoja tengo un botón a donde quiero imprimir pero primero ver la hoja ...

Private Sub CommandButton11_Click()
Dim iResponse As Integer
iResponse = MsgBox("DruckVoramsicht?", vbYesNo + vbInformation + vbDefaultButton1, " Create By ClickMe2Eusebio.COM")
Select Case iResponse
    Case vbYes
        Unload Me
        Tabelle3.Range("A1:Q45").PrintPreview
         Tabelle4.Range("A1:Q45").PrintPreview
    Case vbNo
End Select
End Sub

tengo el siguiente codigo, para ver una hoja oculta funciona pero en la otras hojas no funciona aunque he cambiado el numero de las hojas -