1 (16 Aug 2012 11:05:28 отредактировано crazy_man)

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

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

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