Макрос замены гиперссылок

[Reku]

Здравствуйте!

Стоит Excel 2010. Сбились гиперссылки, понадобилось восстановить - вручную слишком долго. Нашел в интернете вот такой макрос

Sub ЗаменаИспорченныхГиперссылок()
On Error Resume Next
Dim hl As Hyperlink, oldString As String, newString As String, sh As Worksheet
' часть гиперссылки, подлежащая замене
oldString = "C:\Documents and settings\Бухгалтер\Application data"
' на что заменяем
newString = "\\адрес_сервера"
For Each sh In ActiveWorkbook.Worksheets ' перебираем все листы в активной книге
For Each hl In sh.Hyperlinks ' перебираем все гиперссылки на листе
If hl.Address Like oldString & "*" Then
hl.Address = Replace(hl.Address, oldString, newString)
End If
Next
Next sh
End Sub

Сделал его под себя - то есть выставил пути как нужно. Он сработал 1 раз как и положено. Затем этот файл переместили в другую папку - я переписал пути и... Скрипт не сработал. И вообще перестал работать. Я зашел в "Войти" в Макросах и там можно выделить все строчки красным (красная точка и красная линия), кроме Dim hl As Hyperlink, oldString As String, newString As String, sh As Worksheet. На нее так же нельзя перетащить стрелку дебага. То есть я так понял скрипт стопорится на ней. Хотя 1 раз скрипт точно сработал. Я сохранил документ, затем его немного переместили, я изменил скрипт снова как надо (то есть пути) и он все равно не работает. Есть идеи?

[The_Prist]

Может код из этой статьи чем поможет?
Как массово изменить гиперссылки?

[EducatedFool]

Ответил в комментариях на сайте:
http://excelvba.ru/code/replace_hyperlinks#comment-1932