Активировать гиперссылки

[Verano naranjo]

Товарищи, необходимо реализовать следующую вестчь:

1) В Excel была сделана выгрузка через Total Commander ссылок на файл
2) Когда открываешь xls файл, гиперссылки неактивны, активируются только по двойному щелчку.

массив оч большой. Хотела активировать ссылки макросом
и ничего

PHP код:

Dim i As Integer

For i = 1 To 315 Step 1
    Range(3, i).Hyperlinks(1).Follow
Next i

End Sub 


выдает ошибку

[EducatedFool]

Попробуйте один из этих вариантов (на копии файла, т.к. неизвестно, всё ли правльно обработается):

Sub test2()
    Dim i As Integer
    On Error Resume Next

    For i = 1 To 315
        Cells(i, 3).Hyperlinks.Add Cells(i, 3), Cells(i, 3)
    Next i
End Sub

Sub test1()
    On Error Resume Next
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([c1], Range("c" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        cell.Hyperlinks.Add cell, cell
    Next cell
End Sub

Варианты различаются лишь синтаксисом - по сути, оба макроса делают одно и то же.