Excel Reexibir e Ocultar planilhas específicas VBA

[Evaristo_br]

Boa tarde, amigos.

 

Sendo novato no VBA, dei uma procurada na internet e não achei um tópico para me ajudar. Vamos lá!

 

Tenho várias planilhas que estão ocultas, serão reexibidas e depois ocultas novamente. Não são todas, só algumas.

Para ocultar elas é tranquilo, mas como não estarão ativas depois do processo, não consegui ativá-las (em conjunto).

 

Fico no aguardo!!

adicionado 16 minutos depois

'declara a variável que vai conter cada uma das planilhas ocultas
Dim planilha_oculta As Variant 		

'cria o loop, para cada planilha que está dentro do agrupamento vai ficar visível.
For Each planilha_oculta In Array("CADASTRO_BASE", "Instruções", "Código Contratante", "Inconsistências", "Validação Endereço", "Tabela CBO")
Sheets(planilha_oculta).Visible = True

'vai pra próxima planilha até a última
Next


'para ocultar todas elas, seleciona o agrupamento e o torna oculto
Sheets(Array("CADASTRO_BASE", "Instruções", "Código Contratante", "Inconsistências", "Validação Endereço", "Tabela CBO")).select
ActiveWindow.SelectedSheets.Visible = False

Depois de um tempinho pesquisando, achei num fórum por aí kkkk

Deixei bem explicadinho, pra quem é novato sabe a diferença que faz, acaba aprendendo algo novo!!

 

[GusGraf]

Obrigado pela contribuição.