Convert cells with hyperlinks into active links without hyperlink formula

[ShogunStealth]

I have a snippet of code

Dim xlRange As Range
Dim Rng As Range

        Set xlRange = Range("G2:G" & Cells(Rows.Count, 1).End(xlUp).Row)
    
        For Each Rng In xlRange
            ActiveSheet.Hyperlinks.Add Rng, Rng.Value
        Next

This code error's at line 65532 1004 error

I need to be able to to convert a column of hyperlinks into active links without the hyperlink function if possible. The column can have over 600,000 rows of hyperlinks

Anyone out there with any ideas to solve this issue? Would appreciate and code suggestions

 

[ShogunStealth]

Thanks everyone, I have created a solution whilst not elegant it works, therefore have moved on and have no reason to keep this thread open.