Prezados amigos,

Possuo uma macro simples na qual busca no meu diretório pessoal um arquivo .xls e extrai algumas informações para o arquivo em que está localizada a macro.

O código possui condições na qual dependendo do arquivo buscado, determinadas linhas serão ocultas e outras serão reexibidas, conforme abaixo exemplo.

    Range("9:12,16:19,23:26,30:33,37:40").Select
    Selection.EntireRow.Hidden = True
    Range("8:8,15:15,22:22,29:29,36:36").Select
    Selection.EntireRow.Hidden = False

No caso acima, a intenção é que as linhas 9-10-11-12, 16-17-18-19 e assim vai, fiquem ocultas e as linhas 8,15,22...não fiquem.

Porém , dessa maneira, nenhuma linha está ficando oculta. Se eu deletar a parte de reexibir, todas as linhas ficam ocultas.

Alguém saberia como me ajudar?

Em anexo está a planilha. Para rodar a macro, abrir a de nome "Previsão..." e selecionar "PMO" no combobox e a planilha "Relatório..." após clicar no botão.