Para Hector!!!

hola, DOORS !

... esta macro... ejecuta el asistente de office con el mensaje de que se encuentra en adquisicion de activo
... no logro... que me aparezca cada 10 segundos y que a los 10 segundos se cierre : ( [...]
Sub Asistente()
With Assistant.NewBalloon
.BalloonType = msoBalloonTypeBullets
.Icon = msoIconTip
.Button = msoButtonSetOK
.Heading = "F-98"
.Labels(1).Text = "Se encuentra en Adquisición de Activo"
.Show
End With
End Sub

1) un 'asistente'... [al igual que los MsgBoxes] REQUIERE [y se espera hasta...] que el usuario 'le de una respuesta'
2) [aunque] me parece exagerado 10 segundos 'de asistente' por 10 segundos 'de trabajo'...
[supongo que ya encontraras los 'lapsos' de tiempo que mejor se acomoden a las necesidades del 'operador'] :))
3) hay otra forma [mas 'barata'] de estar mostrando mensajes, que te expongo a continuacion...
muestra un mensaje que si el usuario NO 'lo pela'... se cierra automaticamente en el tiempo [segundos] que TU establezcas
[en el ejemplo estoy 'dandole' un tiempo en pantalla de 2 segundos y programando la siguiente 'aparicion' a los 10 segundos] :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

a) copia las siguientes lineas en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_BeforeClose(Cancel As Boolean)
Terminar = True
End Sub

b) prueba con las siguientes lineas en un modulo de codigo 'normal' ==Public Terminar As Boolean
Sub Mensaje_temporal()
If Terminar Then Exit Sub
CreateObject("WScript.Shell").Popup _
"Se encuentra en Adquisición de Activo" & vbCr & _
"Este aviso desaparecerá en 2 segundos...", 2, "Mensaje temporal"
Application.OnTime Now + TimeSerial(0, 0, 10), "Mensaje_temporal"
End Sub