Mensagem ao ativar uma Aba

[Roberto de Paula Pereira]

Bom dia,

 

Como faço para que a mensagem não se repetida mais de uma vez?

 

Private Sub Worksheet_Activate()
MsgBox "teste"
End Sub
 

[Basole]

Experimente isso: 

Private Sub Worksheet_Activate()
        
          On Error Resume Next
          
     If Excel.WorksheetFunction.IfError(Application.ExecuteExcel4Macro("meuvalor"), 2029) = "2029" Then
            Excel.Application.ExecuteExcel4Macro "SET.NAME(""meuvalor"", ""Aba já está Ativa"")"
            MsgBox "teste"
     End If
          On Error GoTo 0
    
End Sub

 

[Roberto de Paula Pereira]

Obrigado mais uma vez, funcionou perfeitamento

 

Valeu