Как вытащить ссылку из Excel

При работе я иногда выдергиваю структуру из html-карты сайта или меню. Но как вытащить гиперссылки? Для этого используем Эксель.

1. Копируем все наименования в отдельную колонку:

2. Создаем макрос

И указываем код

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

4. Закрываем окно с кодом. Выбираем область получения ссылок. Открываем заново окно Макроса (шаг 2). Кликаем на созданный нами макрос и нажимаем выполнить.