Bom dia Miguel

Já precisei de algo parecido, creio que isso pode te ajudar.
https://msdn.microsoft.com/en-us/librar ... 40279.aspx

Aconselho você sempre postar uma planilha como exemplo assim facilita na compressão de sua necessidade.

Abraços

Fabio sp

Fala amigo, veja se a função a baixo te atende, eu a fiz de forma que você consiga adaptar a sua necessidade, dúvidas estamos aí...

Private Function CX_Mensagem(Tempo As Integer, Titulo As String, Mensagem As String) As Boolean

    CX_Mensagem = False
    Dim CaixaMsg As Object
    Set CaixaMsg = CreateObject("WScript.Shell")
    Select Case CaixaMsg.Popup(Mensagem, Tempo, Titulo, vbYesNo + vbInformation)
        Case vbYes
                CX_Mensagem = True
        Exit Function
    End Select
End Function

Para usar, faça uso do if pegando a resposta da função.......

If CX_Mensagem(3, "EXCEL VBA", "PROXIMO CAMPO") = True Then
msgbox "Você clicou em Sim"
End If

Visite meu blog... e meu canal do youtube...

programacaopassoapasso.wordpress.com

http://www.youtube.com/channel/UCbIAUS0RNnCzU2B5SGFDJgg

Esqueci de mencionar que o 3 logo após a abertura dos parentes no bloco if é equivalente ao tempo em segundos para fechamento do formulário....

Uma outra alternativa :

Fechar MsgBoxs Automaticamente
http://www.tomasvasquez.com.br/forum/vi ... 7781ae36bd

[]s