Remove all hyperlinks on a slide

[hakans-dev]

Imagine a big chunk of text or table that you copied from Wikipedia; you can't remove multiple hyperlinks on a selection of multiple table cells (option never shows up), or in a text box (unless you start your selection exactly from the first hyperlink --- not everybody knows about it!). A button to delete all hyperlinks on the whole slide or selected text or table (cells) would help immensely. (or maybe two buttons?!)
The code below from this page might help. I haven't tested the code, but I think it shouldn't be a big deal even if it doesn't work.

Thank you very much for your wonderful work and making it public.

Sub DeleteLinks()
    Dim oSl As Slide
    Dim x As Long

    For Each oSl In ActivePresentation.Slides
        For x = oSl.Hyperlinks.Count To 1 Step -1
            oSl.Hyperlinks(x).Delete
        Next
    Next
End Sub