選択した範囲の文字列をハイパーリンクとして設定してしまうマクロ。
┌──────────────────────────────────────┐
│Sub ハイパーリンク作成()                                                    │
│    Dim r As Range                                                          │
│    For Each r In Selection                                                 │
│        ActiveSheet.Hyperlinks.Add Anchor:=r, Address:=r.Value              │
│    Next                                                                    │
│End Sub                                                                     │
└──────────────────────────────────────┘
URL一覧とかで、実行すればリンク集となる。

選択した範囲のハイパーリンクを削除するマクロ。
┌──────────────────────────────────────┐
│Sub ハイパーリンク削除()                                                    │
│    Dim r As Range                                                          │
│    For Each r In Selection                                                 │
│        r.Hyperlinks.Delete                                                 │
│    Next                                                                    │
│End Sub                                                                     │
└──────────────────────────────────────┘
元々、ハイパーリンクを削除した場合、手動で削除しても
罫線が消えてしまうというバグがあるが、このマクロでも手動を代行するだけなので
罫線が消えてしまうので注意。