Obsolete – Remove hyperlinks from cells in selected range

Brief description:

Remove hyperlinks from cells in selected range – Partly obsolete

Full description:

Remove hyperlinks from cells in selected range – Partly obsolete as similar functionality is now available in Excel via right mouse click. Can still be useful if hyperlinks are spread over non-contiguous range.

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