Извлечение Ссылки из ячейки с гиперссылкой без дополнительных функций

[KuroiRyuu]

"=HYPERLINK(""http://Ссылка разлоичной длины"",""Отображаемый текст"")"

Нужно извлечь из ячейки с такой формулой саму ссылку вложив ее в стринговую переменную
я пробовал использовать,
.Hyperlinks.Add
.Hyperlinks.Address
но мне выдавало, то out of range, то argument(последний) not optional, то еще что-то.
Подскажите как это реализовать, именно в макросе, без написания дополнтельных функций.

В идеале хотел чтобы было, что-то вроде
x = Cells(n,9).Hyperlinks.Address, где x - строчная переменная n- целочисленая
для работы с циклом

[motorway]

Как минимум можно так:

x = Split([a1].Formula, """")
x = x(1)
MsgBox x

Но у вас в формуле много кавычек.

[IgorGO]

вопрос как бы содержит ответ:
это: Cells(n,9).Hyperlinks(1).Address
и есть: http://Ссылка разлоичной длины

[EducatedFool]

Сообщение от IgorGO

это: Cells(n,9).Hyperlinks(1).Address

Игорь, этот способ не канает с гиперссылками, заданными формулой.
(не знаю, почему разработчики Excel так сделали)

Правильнее будет получить ссылку из ячейки при помощи этой функции:

Function FormulaHyperlink(ByRef cell As Range) As String
    If cell.HasFormula And (cell.Hyperlinks.Count = 0) Then
        If cell.Formula Like "=HYPERLINK*" Then
            FormulaHyperlink = Evaluate(Mid$(Split(cell.Formula, ",")(0), 12))
        End If
    End If
End Function

Или заменить все «формульные» гиперссылки обычными:
http://excelvba.ru/code/FormulaHyperlinks

[IgorGO]

век живи - век учись.
спасибо, буду знать.
извините за дезинформацию.

(не знаю, почему разработчики Excel так сделали)

наверняка хотели, как лучше...

[KuroiRyuu]

По моему конкретному случаю - дали ответ на другом форуме:
x=Split([a1].Formula, Chr(34))(1)
Пока мучался с """" ничего не получалось, а символ двойных кавычек решил всю проблему.

UPD - я тупак))
оказывается была запятая между "",""
Так что и с """" все норм