Автозамена части гиперссылки, как сделать? - VBA

Формулировка задачи:

Всем здравствуйте! Вопрос в следующем: есть таблица Excel, достаточно большая, в которой целая куча гиперссылок на файлы, находящиеся в других папках. Получилось так, что при копирования файла на другой диск, вместе со связанными папками, все гиперссылки перепривязались к другому диску, т.е . грубо говоря, начало ссылки C:Work и т.п. приняло вид \aaabbccc. Теперь очень хочется восстановить прежний вид этих ссылок, сделав автозамену измененной части гиперссылки. Есть какие либо варианты?

Решение задачи: «Автозамена части гиперссылки, как сделать?»

textual
                            Листинг программы 
                        

                            Sub to_tsvet()
Dim f As Hyperlink
For Each f In Worksheets(1).Hyperlinks
    If f.Address Like "\TUSWS2018Actl*" Then
        f.Address = Replace(f.Address, "\TUSWS2018Actl", "c:")
    End If
Next
End Sub
                        