Sub ChangeAllHyperlinkNames()
    Dim hLink As Hyperlink
    Dim oldTxt As String
    Dim newTxt As String
   
    oldTxt = InputBox("Find ...")
    newTxt = InputBox("... and replace with...")
        For Each hLink In ActiveSheet.Hyperlinks
            hLink.Address = Replace$(Expression:=hLink.Address, _
             Find:=oldTxt, Replace:=newTxt, _
             Compare:=vbTextCompare)
        Next hLink
End Sub