помощ за Excel

Значи имам в една колонка текст ,който е форматиран като хиперлинк. примерно в клетката пише "портал' а хиперлинка в тази клетка е " [линк]"
Как да направя така че в съседната колонка срещу всяка клетка да е съответния и хиперлинк. имам предвид автоматично да го направя,щото колонката е дълга.
Може би някой който е наясно с VBA да знае как.Като се опитам да записвам макрос ,кликам с десен ,избирам Hyperlink/Copy Hyperlink после си пействам и става,обаче макроса записва само
Selection.Copy , а не Copy Hyperlink, тоест самото съдържане копира а не линка.
Как да го направя това ,някой знае ли.

Sub Create_Hyperlink()

  Dim n As Integer

  For n = 1 To 100 Step 1

    ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(n, 3), Address:=ActiveSheet.Cells(n, 2).Value

  Next n

End Sub

Ако в колона 2 има '[линк]' то в колона 3 ще бъде вече Hyperlink
[линк]

благодаря за вниманието ,обаче исках друго :) .Може би не съм обяснил правилно.
Ако в клетка A1 стойноста е "Български Портал" и в същото време в нея хиперлинка е "[линк]" , как да направя така че в клтетка B1 стойноста да стане "[линк]".

иначе и това не го знаех и бих го направил чрез Access като задам формат на колона като хиперлинк. Така както си го дал също ще ми бъде полезно.Благодаря.

кажете бе хора,как да го правя тва?

Здрасти,
Ето новото предложение предпологам, че този път с отговорил.

Sub Get_Address_from_Hyperlink()

  Dim n As Integer

  For n = 1 To 100 Step 1

    ActiveSheet.Cells(n, 2) = ActiveSheet.Cells(n, 1).Hyperlinks.Item(1).Address

  Next n

End Sub

Ако в колона 1 има Hyperlink, то в колона 2 се записва Адреса на хипервръзката в текст.

Ако има нещо питай пак. С удоволствие ще ти отговоря.
Съжалвам че се забавих, но съм доста зает.
Чао.

супер, благодаря много.
Търсех преди член на класа Hyperlink, пък то имало и Hyperlinks.
Ама кат съм тъпанар кво да правя :)