【Excel VBA】選択範囲をRangeとして取得する（複数選択範囲対応）

選択範囲をRangeとして取得します。
Ctrlキーを押しながら選択すると複数の選択範囲が指定可能ですが、その場合はSelectionでは全ての選択範囲が取得出来ません。
Selection.Areasを利用して全ての選択範囲を結合したRangeを取得します。

'
' 選択範囲をRangeとして取得する。（複数選択範囲対応）
'
Private Function GetSelectionRange() As Range
    Dim allRange As Range
    Dim r As Range

    For Each r In Selection.Areas
        If allRange Is Nothing Then
            Set allRange = r
        Else
            Set allRange = Union(allRange, r)
        End If
    Next
    
    Set GetSelectionRange = allRange
End Function