Repairing Hyperlinks in a Workbook

[Snake Eyes]

Greetings,
When Excel crashes my hyperlinks placed throughout the workbook break. I am trying to create a macro that will fix the paths of all the broken hyperlinks.
This is what I have:

Dim hl As Hyperlink
    For Each hl In ActiveWorkbook.Hyperlinks
        Debug.Print hl.Address
        hl.Address = Replace(hl.Address, "C:\Users\name\Application Data\Microsoft\Excel", "G:\Data Files\VMS\")
    Next

I get this error when I try to run it...
Run Time Error '438':
Object doesn't support this property or method. Can someone guide me on what the correct code would be?

Kindest Regards.