Macro to change hyperlinks

[pzamory]

We are moving from the Classic Sharepoint to the new version. All of the files that I had in a Sharepoint directory have been moved to a new Sharepoint directory. The problem is that I have an Excel sheet with over 1,000 hyperlinks that need to be updated.

Can this be done via a macro?

Thanks

 

[Tupe77]

Do you mean something like this?

Sub ChangeHyperlinkAddress()
    Dim HyperLink As HyperLink
    Dim ws As Worksheet: Set ws = ActiveSheet
    Dim FindThisSTR as string, ReplaceWithThisSTR as String
    
    FindThisSTR = "Old Path To Replace"
    ReplaceWithThisSTR = "New Path To Replace"
    
    on error resume next
       For Each HyperLink In ws.Hyperlinks
            HyperLink.Address = Replace(HyperLink.Address, FindThisSTR, ReplaceWithThisSTR)
        Next HyperLink
    on error goto 0

End Sub

My apologies for any quirks, English is not my native language. "So I blame Google translate for all my goofs."

 

[pzamory]

Thank you so much for the quick help. I am grateful.