Una macro para ver todas las hojas pero especificar que hojas sigan ocultas

Si me pueden ayudar para hacer una macro donde me permita abrir todos las hojas pero también indicándole que hojas sigan ocultas.

1 Respuesta

Respuesta
2

[Hola 

va la macro 

Sub mostrar()
    For Each h In Sheets
         Select Case h.Name
            Case "Hoja2", "Hoja3 ' para mantener ocultas"
            Case Else
             h.Visible = True     ' para hacer visible las hojas
        End Select
     Next
End Sub

Puntuar para cerrar la pregunta..

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas