Сохранить выбранный диапазон в Excel в переменную

Dim Диапазон As Variant
Dim ThemeColorHot As Integer 'код цвета
Dim ThemeColorCold As Integer 'код цвета
 
Public Sub PaintCells()
    'debug
    ThemeColorHot = 6
    ThemeColorCold = 5
    '
    
    Dim aCell As Range
    Диапазон = Application.Selection
   
    For Each aCell In Application.Selection
        If IsNumeric(aCell) And Not IsEmpty(aCell) Then 'в ячейке числовое значение
            Select Case aCell
            '...различные действия

Public Sub ReturnFirstState()
    Dim aCell As Range
 
    For Each aCell In Диапазон 'Object required
        If IsNumeric(aCell) And Not IsEmpty(aCell) Then 'ячейка вероятно была покрашена макросом
            With aCell.Interior
                .Pattern = xlNone
                .TintAndShade = 0
                .PatternTintAndShade = 1
            End With
        End If
    Next
End Sub

Public Sub PaintCells()
    'debug
    ThemeColorHot = 6
    ThemeColorCold = 5
    '
    
    Dim aCell As Range
    Диапазон = Application.Selection
   
    For Each aCell In Диапазон
        If IsNumeric(aCell) And Not IsEmpty(aCell) Then 'в ячейке числовое значение
            Select Case aCell
            '...различные действия

    Диапазон.Select
    Call PaintCells

If Not Диапазон.Parent Is Target.Parent Then Exit Sub

If Not Диапазон.Parent Is sh Then Exit Sub