通过userform文本框条目更新超链接

Question

我有一段我认为正在运作的代码。它的作用是更新超链接框中显示的文本，并将URL的最后一部分作为要显示的文本。然后假设更新整个超链接本身。当我第一次测试这个代码时，它适用于一些报告。 然后我得到了一些报告，它只会更新正确显示的文本。然后我会尝试手动更新URL，它将恢复到原始超链接。有没有人见过这个？ 对于这个问题，什么是好的解决方案。我可以获得新的超链接的唯一方法是完全删除旧的超链接，然后插入新的超链接。

Public Sub UpdateHyperLink()

Dim rng As Range, str As String
Set rng = Range("C3:I13")


str = TextBox2.Text
str2 = Right(str, Len(str) - InStrRev(str, "/"))

Application.CutCopyMode = False

With rng.Hyperlinks(1)
    .Address = TextBox2.Text
    .TextToDisplay = str2    
End Sub