Pasting Text to hyperlink

[certain_death]

Hey Guys
I have a spreadsheet that has 700 lines of web links but they are formatted as text.
Is there any way I can just copy and paste them to hyperlinks that will enable me to click on one and then it takes me to that web address?

Thanks in advance
cd

[ilyaskazi_01]

The below code will convert your text into links...
Please select all the cells before running...

Sub ConvertTextToHyperLink()

    Dim strHyperLink As String
    Dim Ce As Range
    
    For Each Ce In Selection
        strHyperLink = Ce.Value
        Ce.Hyperlinks.Add Anchor:=Selection, Address:= _
        Ce.Value, TextToDisplay:=Ce.Value
        
    Next Ce
       
End Sub

Ty.
Ilyas Kazi

[certain_death]

Hi there

Thanks for responding

Sort of works but have an issue

If I select the range of 700 lines and run the code...it converts them all to hyperlinks but no matter which line I then click it takes me to the hyperlink of the first line only.

Can you amend it slightly please?

Thanks again
cd