Очистка данных по условию нахождения активной ячейки

[segail]

Здравствуйте.
Подскажите как корректно выполнить условие для очистки данных?
«Если активная ячейка выделенной области таблицы находится в диапазоне Шапка» то код не выполняется и выполняется от обратного.

Sub УдалениеВыбранного()

        If Not Intersect(ThisWorkbook.Names("Шапка").RefersToRange, ActiveCell) Is Nothing Then  'Если активная ячейка находится в диапазоне ("Шапка")
            
            MsgBox "Выделение некорректно. Выделите необходимый рабочий диапазон ячеек для очистки."
    
        Else
            
            ActiveSheet.Unprotect                           'Снять защиту листа
            Selection.ClearContents                         'Удалить значения
            Selection.Borders.LineStyle = xlNone            'Удалить границы
            ActiveSheet.Protect                             'Установить защиту листа
        
        End If
    
End Sub

Дело в том, что если выделить область таблицы по диагонали снизу в верх и затронуть область диапазона Шапка, то активная ячейка выделения будет находится в не области диапазона Шапка и тогда удаляется область выделения диапазона Шапка.

[IgorGO]

  If Intersect(ThisWorkbook.Names("Шапка").RefersToRange, Selection) Is Nothing Then  'Если активная ячейка находится в диапазоне ("Шапка")
    ActiveSheet.Unprotect                           'Снять защиту листа
    Selection.ClearContents                         'Удалить значения
    Selection.Borders.LineStyle = xlNone            'Удалить границы
    ActiveSheet.Protect                             'Установить защиту листа
  Else
    MsgBox "Выделение некорректно. Выделите необходимый рабочий диапазон ячеек для очистки."
  End If

[segail]

Игорь благодарю! Работает!