надстройка для эксель для обновления связей

[ihtiandr]

суть проблемы такая: нужно сделать надстройку которая обновляла бы связи excel с определенным промежутком времени или по нажатию на кнопку.
макрос сделал такой:
первый модуль для автообновления:
Sub repeat()
Application.OnTime Now + TimeValue("00:00:01"), "update"
End Sub
Private Sub update()
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
repeat
End Sub
2-ой модуль для кнопки

Sub Hand_update()
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
End Sub



проблема в том что прописывать этот макрос в каждом файле задача весьма муторная, поэтому нужно сделать из этого надстройку, которую можно было бы прилепить к нужным файлам или пользователям...

[ihtiandr]

даже намека на идею нет?(