Uma família de softwares de planilhas da Microsoft com ferramentas para analisar, criar gráficos e comunicar dados.
Tem certeza que é a plan2 que está oculta? Você ocultou via código ou via propriedades com a propriedade xlSheetHidden ou xlSheetVeryHidden? Apareceu alguma mensagem de erro?
Na dúvida, tente:
Sub botao1()
If Sheets("Nome da planilha").Visible = xlSheetHidden Or xlSheetVeryHidden Then
Sheets("Nome da planilha").Visible = xlSheetVisible
End If
Plan2.Activate
End Sub
Em meus testes funciona perfeitamente.