VBA code to re address multiple Hyper links in a workbook

[nigly]

Hi, wonder if anyone can help please. I have a workbook that has individual Hyperlinks that open up various drawaings. There are in excess of 10,000 drawings and all links worked fine unitl the company replaced my Laptop and all the previous link addresses lost their correct address path and all have defaulted to my C:\ drive. I have changed the names for business reasons but this is the macro i'm running. Grateful for any help?

Sub FixHyperlinkz()

Dim wks As Worksheet

Dim hl As Hyperlink

Dim sOld As String

Dim sNew As String



Set wks = ActiveSheet

sOld = "c:\Users\shared\Drawing office\"

sNew = "\\Original address\shared\Drawing Office\"

For Each hl In wks.Hyperlinks

hl.Address = Replace(hl.Address, sOld, sNew)

Next hl

 

[MrTomasz]

Try

Sub test()
    Dim hLink As Hyperlink
    Dim wSheet As Worksheet
    Dim path As String
    
    sOld = "c:\Users\shared\Drawing office\"
    sNew = "\\Originaladdress\shared\Drawing Office\"
    
    For Each wSheet In Worksheets
        For Each hLink In wSheet.Hyperlinks
            path = Mid(hLink.Address, Len(sOld) + 1)
            hLink.Address = sNew & path
        Next hLink
    Next
End Sub