Здравствуйте!
Вот код процедуры, который должен выписывать в столбец N адреса ссылок из другого столбца B
(причем Hyperlink.address<>Hyperlink.TextToDisplay). Стоблец В содержит пустые строки.
Dim h As Hyperlink
Dim hs As Hyperlinks
Dim s As String
Set hs = Range("b4:b38").Hyperlinks

For Each h In hs
Row = h.Range.Row
Col = h.Range.Column
s = h.Address
Next

Set c = h.Range(Row, 14).Cells(0, 0)
Cells(Row, 14) = Chr(39) & s

If c.Text = Chr(39) Then
c.Text = Mid(c.Text, 2)
End If


На самом деле он не правильно работает. Первые четыре правильно, а для остальных пишет адрес
первой ссылки.
В чем проблема?

А надо:
Например:
Столбец B Столбец N
текст первой гиперсылки (http://www.link1.ru/?pnum=3721) http://www.link1.ru?pnum=3721
текст второй гиперсылки (http://www.link2.ru/?pnum=3845) http://www.link2.ru?pnum=3845
----------------------
текст k-ой гиперсылки (http://www.linkK.ru/?pnum=8888) http://www.linkK.ru?pnum=8888

Т.е. в столбце В есть и Hyperlink.address и Hyperlink.TextToDisplay, а в столбце N только
Hyperlink.address

Всем спасибо за ответ.