Odstran odkazy

Sub odstranHypertext()

    Dim hyp As Hyperlink

    For Each hyp In ActiveSheet.Hyperlinks
        hyp.Delete
    Next

End Sub




Sub odstranHypertextsTextom()

    Dim hyp As Hyperlink

    For Each hyp In ActiveSheet.Hyperlinks
        hyp.Range.Delete
    Next

End Sub