Odstran hyperlinky SUB

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