Excel_VBA 批量查找替换超链接

Sub 替换超链接()
Dim sTobeReplaced As String
Dim sReplaceWith As String
sTobeReplaced = InputBox("输入你要查找的字符", "输入你要查找的字符")
sReplaceWith = InputBox("输入你要替换的字符", "输入你要替换的字符")
For Each Ws In Application.Worksheets '遍历工作表
For Each h In Ws.Hyperlinks '遍历超链接
    If InStr(h.Address, sTobeReplaced) <> 0 Then
    aLink = Replace(h.Address, sTobeReplaced, sReplaceWith)
    h.Address = aLink
    End If
Next
Next
End Sub