[crazy_man]

Переносим все гиперссылки на другой лист:

Код: vb

 Dim sht As Worksheet
 Dim hyp As Hyperlink
 Dim i As Integer
 Set sht = Sheets(\"Лист2\")
 For Each hyp In ActiveSheet.Hyperlinks
    i = i + 1
    sht.Cells(i, 1) = hyp.TextToDisplay

 Next