Macro para ocultar várias planilhas

Question

Ola boa noite!

Minhas pastas de trabalho contem varias aba e gostaria de uma macro para fazer um LOOP e ocultasse todas as planilhas MENOS estas:

Plan2 (Relatórios)

Plan3 (Informação Pessoal)

Faço planilhas para amigos somente pelo prazer com à ajuda de vocês deste fórum.

Obrigado.

Answer 1

Segue Miguelinho

    Dim sht As Worksheet
    For Each sht In ThisWorkbook.Sheets
    
        If sht.Name <> "Plan1" And sht.Name <> "Plan2" Then
        
            sht.Visible = False
            
        End If
        
    Next sht

---

Natan

Answer 2

Fantástico !!!!!!!!!!!!

Obrigado 'Natan Silva