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

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.

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

Tenta assim

Sub MacroMsg()

’ MacroMsg Macro

On Error Goto Sair
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

                     Sair: Exit Sub

 End Sub
1 Curtida

Obrigado pela ajuda. Deu certo