Olá Tenho um grande problema, usei este codigo "Application.ActiveSheet.Visible = False" no VBA e todas as sheets que tinha ficaram invisiveis. já tentei os seguintes comandos: Application.ActiveSheet.Visible = True ThisWorkbook.Worksheets("MEFIDIS_SingleCell").Visible = True ThisWorkbook.Worksheets("MEFIDIS_GRID").Visible = True Application.Worksheets("MEFIDIS_SingleCell").Visible = True Application.Worksheets("MEFIDIS_GRID").Visible = True E nada funciona. Preciso de ajuda urgentemente porque a folha é um interface e se não estiver visivel perco semanas de trabalho. Alternativa: Se houver uma forma de copiar o conteudo de todas as celulas de cada sheet para um workbook novo pode ser uma alternativa. Obrigado Akli