Return to Snippet

Revision: 56071
at March 7, 2012 15:00 by kidmizere


Initial Code
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

Initial URL
http://www.jerryleventer.com/excel-tutorial-how-to-convert-plain-text-links-into-hyperlinks/

Initial Description
Save the following code as a macro and then apply it to the fields you want to convert

Initial Title
Convert Excel plain text links to hyperlinks

Initial Tags
excel

Initial Language
Visual Basic