让VBA编辑现有超链接时遇到问题

Sub EditHyperlink()
    Dim rng As Range
    Dim hyperlink As Hyperlink
    
    ' 获取包含超链接的单元格引用
    Set rng = Range("A1")
    
    ' 获取超链接对象
    Set hyperlink = rng.Hyperlinks.Item(1)
    
    ' 修改超链接的目标地址
    hyperlink.Address = "http://www.example.com"
End Sub

Sub EditHyperlinkText()
    Dim rng As Range
    Dim hyperlink As Hyperlink
    
    ' 获取包含超链接的单元格引用
    Set rng = Range("A1")
    
    ' 获取超链接对象
    Set hyperlink = rng.Hyperlinks.Item(1)
    
    ' 修改超链接的显示文本
    hyperlink.TextToDisplay = "Click here"
End Sub

Sub EditHyperlinkScreenTip()
    Dim rng As Range
    Dim hyperlink As Hyperlink
    
    ' 获取包含超链接的单元格引用
    Set rng = Range("A1")
    
    ' 获取超链接对象
    Set hyperlink = rng.Hyperlinks.Item(1)
    
    ' 修改超链接的提示文本
    hyperlink.ScreenTip = "This is a hyperlink"
End Sub