Desculpem,

Na macro original não tem Sheets("FORMULARIO_2").Activate. Tinha colocado em uma das tentativas.

A macro é:

Sub SelecionaFormulario2()

Application.ScreenUpdating = False
Sheets("FORMULARIO_2").Visible = True
Sheets("FORMULARIO_2").Select
Sheets("EXIBIR").Visible = False
Application.ScreenUpdating = True
End Sub

Obrigado!

Silvio, se entendi corretamente você tem duas Opções :

1º ) Com a instrução diretamente na Rotina, para isto troque a sua rotina pela a abaixo:

Sub SelecionaFormulario2()

    Application.ScreenUpdating = False
        Sheets("FORMULARIO_2").Visible = True
        Sheets("FORMULARIO_2").Activate
        
        'Aqui a mensagem antes de ocultar a Sheet EXIBIOR
        MsgBox "Voce Selecionou a Aba : " & ActiveSheet.Name
        
        Sheets("EXIBIR").Visible = False
    Application.ScreenUpdating = True
End Sub

2º ) Utilizando o Evento Activate da aba Fomulario_2 :

Private Sub Worksheet_Activate()

    MsgBox "Voce Selecionou a Aba : " & ActiveSheet.Name
    
End Sub

[]s

Boa tarde Mauro!

Usei os dois códigos que você postou e nos dois a msgbox continua aparecendo antes de mudar de planilha.
O que preciso é que só quando a planilha FORMULARIO_2 se tornar visível é que deva aparecer a msgbox.

Grato.

Silvo Felinto

Silvio, cometi um equivoco, devia ter trocado a instrução que congela a tela, por isto este efeito, use a abaixo:

Sub SelecionaFormulario2()
    
        Sheets("FORMULARIO_2").Visible = True
        Sheets("FORMULARIO_2").Activate
        
       'Congela a tela
       Application.ScreenUpdating = False
       
        'Aqui a mensagem antes de ocultar a Sheet EXIBIOR
        MsgBox "Voce Selecionou a Aba : " & ActiveSheet.Name
       
        Sheets("EXIBIR").Visible = False
        
    Application.ScreenUpdating = True
    
End Sub

Quanto a do Evento, a mensagem só aparecerá se selecionar a aba Formulario, não tem como a mensagem ocorrer antes

[]s

Boa tarde Mauro!

Deu tudo certo.

Valeu e obrigado.

Silvio Felinto