Boa noite!!
Quanto a Msgbox....

Sub menssagemSimNão()
Dim RespostaAle As String
Dim AleVBA As String

  
    AleVBA = "Você Concorda?"

    RespostaAle = MsgBox(AleVBA, vbQuestion + vbYesNo, "???")

    If RespostaAle = vbNo Then
       
        MsgBox "Você apertou Não!"
    Else
        
        MsgBox "Você apertou Sim!"
    End If

End Sub

Bom dia Alexandre,

Obrigado pelo seu retorno.

Meu maior problema é inserir um cronometro na msgbox com multipla escolha. Por exemplo: após 5 segundos executa a macro do botão SIM ou executar a macro dos botões SIM ou NÃO se clicado antes de 5 segundos.

Abaixo, segue exemplo de msgbox com tempo, porem não consegui configura-la para aceitar o vbYesNo.

Private Sub AutoFechaMsgBox(Mensagem As String, Titulo As String, Segundos As Integer)
Set oSHL = CreateObject("WScript.Shell")
oSHL.PopUp Mensagem, Segundos, Titulo, vbOKOnly + vbInformation
End Sub 
'- - - - - - - - - - - - - - - - - - - 
Sub AutoMessagem()
AutoFechaMsgBox "Clique em OK ou aguarde", "MsgBox fecha automaticamente", 1
AutoFechaMsgBox "Alterar o Cadastro de Clientes", "Cadastro de Clientes", 2
AutoFechaMsgBox "Aprenda Microsoft Excel VBA" & vbCrLf _
& "Praticando, com os produtos didáticos" & vbCrLf _
& "Escola SaberExcel", "Curso MS Excel VBA Saberexcel", 2
End Sub

[url]
http://www.microsoftexcel.com.br/index. ... =component
[/url]

Olá Volnei,

Teste assim:

Private Sub AutoFechaMsgBox(Mensagem As String, Titulo As String, Segundos As Integer)
Set oSHL = CreateObject("WScript.Shell")
oSHL.PopUp Mensagem, Segundos, Titulo, vbOKOnly + vbInformation
End Sub

Sub Optar()
  If MsgBox("Opcional: Sim/Não.", vbYesNo + vbQuestion, "AutoFechaMsgBox") = vbNo Then
  AutoFechaMsgBox "Optastes por Não.", "MsgBox fecha automaticamente", 1
   Exit Sub
  End If
    AutoFechaMsgBox "Optastes por Sim.", "MsgBox fecha automaticamente", 1
End Sub

Jose, obrigado pela ajuda.

Testei o código com sua alteração, para mim ocorreu da seguinte forma:
- Abriu a msgbox perguntando SIM ou NÃO e ficou desta forma até ter minha intervenção. Após apareceu outra msgbox e esta sim, ficou aberta por um determinado tempo e fechou.

Precisava que ocorresse isto na primeira msgbox, sendo a segunda desnecessaria.

Verique o modelo em anexo.

O arquivo está corrompido, poderia enviar novamente?