Replace part of hyperlink

Question

I need to modify a lot of hyperlinks in an .xls workbook. My links are like this:

\\\\\\mysrv001\\some\\path\\documents.doc and I need to replace

Answer 1

try this

Sub test()
    Dim hLink As Hyperlink
    Dim wSheet As Worksheet

    For Each wSheet In Worksheets
       For Each hLink In wSheet.Hyperlinks
            hLink.Address = Replace(hLink.Address, "\\mysrv001\", "\\mysrv002\")
        Next hLink
    Next
End Sub