macro con mensaje

hola, !

... un macro que al escribir en a1 10 aparesca un mensaje " hola "
pero que este mensaje dure 2 segundos y se cierre sin tener que poner aceptar, yes o no ...

prueba con un cuadro de mensajes temporal usando constantes del "shell" de windows...
aunque necesitas definir claramente "que" deberia suceder si se responde con alguna de las variantes
(o incluso, si no se hace caso del mensaje y se deja pasar el tiempo SIN dar aguna respuesta, p.e.)

Sub Mensaje_temporal()
Dim Espera As Long
Espera = 5 ' 5 segundos '
Select Case CreateObject("wscript.shell").Popup("Esto, es bueno ???... o que !!!." & vbCr & _
"Tienes " & Espera & " segundos para responder...", Espera, _
"Respuesta requerida...", 4 + 64)
Case -1: MsgBox "Ahora, tendre que actuar... ""por mi cuenta"" !!!", , _
"NO respondiste... <\°|°/>"
Case 6: MsgBox "Me alegra que respondieras.", , "Perfecto !!!..."
Case 7: MsgBox "Por que ?" & vbCr & "Que esta mal ?" & vbCr & "Estas en contra mia ?", , "<\°|°/>"
End Select
End Sub

si quieres usar y/o definir las constantes (o solo sus valores) para botones y respuestas, te dejo la informacion al final

si cualquier duda (o informacion adiciona)... comentas ?
saludos,
hector.

' Constantes para tipo de boton
Const btnSoloAceptar As Long = 0
Const btnAceptarCancelar As Long = 1
Const btnAbortarReintentarIgnorar As Long = 2
Const btnSiNoCancelar As Long = 3
Const btnSiNo As Long = 4
Const btnReintentarCancelar As Long = 5
' Valores validos para el boton "presionado"
Const btnAceptar As Long = 1
Const btnCancelar As Long = 2
Const btnAbortar As Long = 3
Const btnReintentar As Long = 4
Const btnIgnorar As Long = 5
Const btnSi As Long = 6
Const btnNo As Long = 7
Const btnNinguno As Long = -1
' Constantes de icono
Const IconoParada As Long = 16
Const IconoPregunta As Long = 32
Const IconoExclamacion As Long = 48
Const IconoInformacion As Long = 64
' Constantes para boton por omision
Const btnDefault1 As Long = 0
Const btnDefault2 As Long = 256
Const btnDefault3 As Long = 512
Const btnDefault4 As Long = 768
Const btnAppModal As Long = 0 ' Application modal, el usuario debe responder al mensaje antes de continuar la aplicacion activa.
Const btnSysModal As Long = 4096 ' System modal, todas las aplicaciones se suspenden hasta que el usuario responda.
Const btnAyuda As Long = 16384 ' Agrega un boton de Ayuda al cuadro de mensaje.
Const btnMsgForegrnd As Long = 65536 ' Establece el texto del boton para la ventana activa.
Const btnTextoALaDerecha As Long = 524288 ' El texto se alinea a la derecha.
Const btnTextoDerechaAIzquierda As Long = 1048576 ' El texto se leera de derecha a izquierda, (sistemas Hebreo y Arabigo).