Obsolete – Remove hyperlinks from cells in selected range

Brief description:

Full description:

Code:


Sub DeleteLink()
    'Remove hyperlinks from cells in selected range
    
    Dim CurrRange As Range, CurrCell As Range
    
    Set CurrRange = Selection


    For Each CurrCell In CurrRange
        CurrCell.Hyperlinks.Delete
    Next CurrCell

End Sub