Buenas esto es un macro que lo que realiza es provocar un Popup emergente con un mensaje de aviso y con una duración determinada de tiempo en pantalla
la descripción de cada linea es la siguiente
Sub MensjeConTiempo() 'nombre de la macro e inicio de la macro
Tiempo = 3 'Segundos ' variable que indica el tiempo que debe de permanecer en pantalla el mensaje
x = CreateObject("WScript.Shell").PopUp("Este mensaje solo durará " & Tiempo & " segundos", Tiempo, "Mensaje de duración _ determinada") 'linea que crea el mensaje Popup con el siguiente mensaje (Este mensaje durara 3 segundos ) tipo de Popup, Titulo del mensaje (Mensaje de duración determinada)
End Sub 'Linea que indica la finalización de la macro
para colocar la macro debes de presionar las teclas Alt y F11 a la vez se te abrira una ventana de VBa donde a la izquierda tienes la lista de las hojas hay presiona botonderecho e indica insertar un modulo y pegas el codigo luego en la hoja que desees le colocas un boton o figura y le asignas la macro con boton derecho asignar macro
un saludo