For some reason my workbook that contains links hyperlinks to a networked drive at times reverts those inks to my own appdata location. I can't figure out how that happens, but I'd like to mass change them back to the correct network location. I found the following VBA code but it's not working. When testing the variable hlink.address always looks to be blank. Can someone tell me what's wrong with this code?
Sub ResetHyperlinks()
    Dim hLink As Hyperlink
    Dim wSheet As Worksheet

    For Each wSheet In Worksheets
       For Each hLink In wSheet.Hyperlinks
            hLink.Address = Replace(hLink.Address, "C:/users/j.myid\appdata\roaming\microsoft\excel", "\\fileshare\share\Excel Macros")
        Next hLink
    Next
End Sub