Ayuda....

Hola, Francisco Javier !

He definido lo siguiente el objeto WorkBook
Private Sub Workbook_Open()
Application.OnTime EarliestTime:=Now, Procedure:="Mensaje", Schedule:=True
End Sub

==> El procedimiento en el evento open, "sucede" SOLO UNA VEZ (EarliestTime:=Now), ademas de que...
NO "REQUIERE" ser "calendarizado" o programado para una siguiente vez (Schedule:=True) :((
de hecho... NO "existe" tal re-programacion.
En este apartado (evento Open) "solo necesitarias" llamar a un procedimiento que "arranque" el metodo OnTime.
(en ese procedimiento es donde debes programar las "repeticiones" de ejecucion OnTime)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime EarliestTime:=Now, Procedure:="Mensaje", Schedule:=False
End Sub
El Problema es que cuando Cierro el Archivo me envia un mensaje de Error en tiempo de Ejecucion1004.

==> El procedimiento en el evento Close, "falla" debido a que NO "existe" un procedimiento "pendiente" de ejecucion :((
Si viistas la siguiente direccion, encontraras la manera "correcta" de programar el evento OnTime
http://www.cpearson.com/excel/ontime.htm

_______
Saludos,
Héctor.
MS-MVP