[OpenX]

Необходимо чтобы при открытии экселя подключался автоматически скрипт:

Sub СделатьСсылки()
i = 7
While Range("K" + Trim(Str(i))) <> Nil
ActiveSheet.Hyperlinks.Add Anchor:=Range("K" + Trim(Str(i))), Address:=TextToDisplay
i = i + 1
Wend
End Sub



Как это можно провернуть?