Авто обновление данных OLE DB закрытие файла с сохранением - VB

Формулировка задачи:

Добрый день!
Задача: автоматом рефрешить данные из OLE DB источника при открытии эксель файла и после рефреша закрывать файл с сохранением.
У меня получается только обновлять данные при открытии, но файл он не закрывает. Подскажите пожалуйста в чем моя ошибка и что не так?

Sub auto_open()
    Call DataRefresh
End Sub

Sub DataRefresh()
    TimeToRun = Now
    Application.OnTime TimeToRun, "Refresh"
End Sub

Sub Refresh()
    ActiveWorkbook.Connections("Shas").Refresh
End Sub

Sub auto_close()
    Application.OnTime TimeToRun, "Refresh", , True
    Application.Quit
    ThisWoorkbook.Close SaveChanges:=True
End Sub

Решение задачи: «Авто обновление данных OLE DB закрытие файла с сохранением»

textual
                            Листинг программы 
                        

                            Sub auto_open()
    Application.OnTime DateAdd("s", 1, Now), "Refresh"
End Sub
Sub Refresh()
    ThisWorkbook.Connections("Shas").Refresh
    ThisWoorkbook.Close SaveChanges:=True
    Application.Quit
End Sub

                        