macro that make hyperlink?

[sami770]

Hey guys
I am trying to turn a url string into a clickable hyperlink, using the following macro:

Public Sub Convert_To_Hyperlinks()
    Dim Cell As Range
    For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
        If Cell <> "" Then
            ActiveSheet.Hyperlinks.Add Cell, Cell.Value
        End If
    Next
End Sub

the problem is that instead of making a link like this http://example.com I am getting a link like this file:///C\users\deski\desktop\example.com

See file attached

How can I fix that? thx a lot!

[sami770]

can anyone help?

[mohd9876]

the workbook you attached is empty, please re attach the one at which the problem occurs

[royUK]

Something like this works for me. Depends what's actually in the cells

Public Sub Convert_To_Hyperlinks()
    Dim Cell As Range
    For Each Cell In Intersect(Selection, ActiveSheet.UsedRange).SpecialCells(xlCellTypeConstants)
            Cell.Hyperlinks.Add Cell, Cell.Value
    Next
End Sub