Urgent: Hyperlinks all changed in Excel, how to cotrol f a sector of the wrong hyperlinks

Try this macro editing the OldString and NewString values appropriately.

Sub EditHyperlinks()
Dim MyHyperlink As Hyperlink
OldString = "\\oldserver\oldshare\"
NewString = "\\newserver\newshare\"

For Each MyHyperlink In ActiveSheet.Hyperlinks
    MyHyperlink.Address = WorksheetFunction.Substitute(MyHyperlink.Address, OldString, NewString)
    MyHyperlink.TextToDisplay = WorksheetFunction.Substitute(MyHyperlink.TextToDisplay, OldString, NewString)
Next MyHyperlink
End Sub