Извлечь URL гиперссылку в Excel документе

Ссылки из html документа в excel вставляются в виде заголовков. Чтобы извлечь ссылки нужно добавить макрос:

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

После выделяем столбец с ссылками и запускаем на выполнение макрос