Достать URL из ячейки с гиперссылкой в Excel

Необходимо создать макрос, и запустить в нужной(ых) ячейках таблицы

Sub LINK()
    With ActiveSheet
        For I = 1 To .Hyperlinks.Count
            .Hyperlinks(I).Range.Offset(0, 1).Value = .Hyperlinks(I).Address
        Next I
    End With
End Sub