用于修复损坏的超链接的宏并不总是有效

Question

我的公司最近更改了他们的服务器，导致我们的许多工作簿上的所有超链接中断。我设法编译代替超链接部分导致链接被破坏的代码。

如果我突出显示包含所有断开链接的列并应用宏，它将无法正常工作。如果我单独突出显示每个链接，它将起作用，但并不总是在第一次尝试时。有时我必须在同一个链接上运行宏三次。

有没有办法解决这个问题，所以它适用于整个页面/工作簿？

Sub FixHyperlinks()
Dim wks As Worksheet
Dim hl As Hyperlink
Dim sOld As String
Dim sNew As String

Set wks = ActiveSheet
sOld = "..\..\" 
sNew = "\\SBS02\"
For Each hl In wks.Hyperlinks
    hl.Address = Replace(hl.Address, sOld, sNew)
Next hl
End Sub