ExcelVBA 選択範囲のハイパーリンク設定／解除

Excelで選択範囲のハイパーリンクを設定または解除するVBAコードです。よくあるコードです。

Option Explicit

Public Sub 選択範囲のハイパーリンク設定()
    If Not TypeOf Selection Is Range Then
        MsgBox "セル範囲が選択されていません。", vbExclamation
        Return
    End If
    
    Dim objCell As Range
    For Each objCell In Selection
        objCell.Hyperlinks.Add objCell, objCell.Formula
    Next
End Sub

Public Sub 選択範囲のハイパーリンク解除()
    If Not TypeOf Selection Is Range Then
        MsgBox "セル範囲が選択されていません。", vbExclamation
        Return
    End If
    
    Dim objCell As Range
    For Each objCell In Selection
        objCell.Hyperlinks.Delete
    Next
End Sub