Глобальный скрипт в excel

openx

Member
Joined
Nov 26, 2003
Messages
254
Reaction score
95
Age
43
Location
Москва
Привет всем, необходимо впихнуть в ексель глобальный скрипт

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


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