Sub ハイパーリンクのリンクのみ解除する()

    For Each ハイパーリンク In ActiveSheet.Hyperlinks
    
        ハイパーリンク.Delete
        
    Next ハイパーリンク

End Sub