Loop thru hyperlinked cells and format hyperlink

Hello,
I need to change thousands of hyperlinks so i figured the way to do it the quickest would be with a macro.
So the below code only on a selected cell and does not loop thru the range that i set the code to.
Hoping for someone to help me out on this and point out where the mistake is.
Thanks.

Sub Button790_Click()
    
    Dim hlink   As Hyperlink
    Dim WorkRng As Range
    
    On Error Resume Next
    Set WorkRng = Range("C5:M720")

    On Error GoTo 0
    If WorkRng Is Nothing Then Exit Sub
    
    For Each hlink In WorkRng.Hyperlinks
        hlink.Address = Replace(hlink.Address, "..\Data\", "")
    Next hlink
    
End Sub