Друзья, добрый день!
Подскажите пожалуйста, если не трудно.
Мучаюсь с завершением OnTime, при периодическом сохранении экселевского файла в формате *.xml.
Никак не могу понять, почему он не завершается
Вот что получается:

---
Public tStart As Variant


Sub SaveAsXml()
'
Workbooks("datalist.xls").Activate
Workbooks("datalist.xls").SaveAsXMLData Filename:= _
"T:\1l\20.xml", Map:=ActiveWorkbook.XmlMaps( _
"data_карта")
Application.OnTime tStart, "SaveAsXml"
Call TimerForSave
End Sub


Sub TimerForSave()
Dim tStart As Variant
tStart = Now + TimeSerial(0, 0, 15)
Application.OnTime tStart, "SaveAsXml"
End Sub

Sub StopAutomaticMacro()
Application.OnTime EarliestTime:=tStart, Procedure:="SaveAsXml", Schedule:=False
End Sub

---
При этом если делать выполнять StopAutomaticMacro(), то пишет ошибку
Run-time error '1004':
Method 'OnTime' of object'_application failed

Подскажите пожалуйста, может кто-нибудь знает в чем проблема.
Заранее благодарен.

Спасибо за ответы. Обязательно попробую вариант предложенный KL (XL).
White Owl, стало очень интересно, как же решить задачу, чтобы она не была такой уж кошмарной.
(С замечанием, что это кошмар согласен на все 100%)

Если найдется время для ответа, буду очень благодарен.
С уважением.

Большое спасибо друзья!!!
Действительно все заработало!