On Error - Utilização de On Error no VBA

[Luis Geraldo]

Boa tarde

 

No código abaixo foi gerado uma caixa de mensagem que se eu clicar em Sim, ela reexibe duas abas, nessa parte do código não tem problema, porém se na caixa de mensagem eu clicar em Não a planilha deveria ocultar duas abas (aba Scopo e Instruções) porém se essas abas já estiverem ocultas na minha planilha o código gera erro. Eu gostaria que ao abrir a planilha (arquivo de excel) já aparecesse inicialmente uma caixa de mensagem para responder Sim ou Não e que o erro gerado no código( na caixa de mensagem, se eu clicar em Não a planilha deveria ocultar duas abas, Scopo e Instruções) , seja feito nada, ou seja, se o código der erro ele finaliza sem nenhuma mensagem, se não der erro ele oculta as abas.

 

Segue planilha de exemplo em anexo. Mudei a extensão para conseguir inserir o arquivo 

 

Código

Sub MacroMsg()
'
' MacroMsg Macro
'

 Dim resultado As VbMsgBoxResult
     resultado = MsgBox("Você irá fazer alguma atualização?", vbYesNo, "Tomando uma decisão")
     If resultado = vbYes Then
   
          Sheets("Dash").Select
    Sheets("Scopo").Visible = True
    Sheets("Scopo").Select
    Sheets("Instruções").Visible = True
    Sheets("dash").Select
    Range("b1").Select
     Else
     
        Sheets("Dash").Select
    Range("B1").Select
    Sheets(Array("Scopo", "Instruções")).Select
        Sheets("Instruções").Activate
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Dados").Select
    Range("Tabela1[[#Headers],[Placa]]").Select
    Selection.End(xlDown).Select
    Sheets("Dash").Select
    Range("B1").Select
    
            
       End If
     End Sub