Копировать значение ячейки, только если активная ячейка находится в столбце таблицы

Question

Я пытаюсь написать макрос, который проверяет, выбрал ли пользователь ячейку в определенном столбце, а затем копирует значение этой ячейки на другой лист. Я продолжаю получать ошибку несоответствия типов в самой первой строке, где я проверяю, выбрал ли пользователь ячейку во втором столбце. Вот мой код:

    If Intersect(ActiveCell, ActiveSheet.ListObjects("Table1").ListColumns(2)) Is Nothing Then
    MsgBox "You must select a cell in the appropriate column.", vbOKOnly + vbInformation, "Error"
Else
    ActiveCell.Copy
    Sheets("Destination").Range("G3").PasteSpecial xlPasteValues
End If

Я предполагаю, что это связано с моим использованием ListColumns ...?

(я не хочу, чтобы строка заголовка считалась допустимым выделением, поэтому на самом деле только тело столбца 2.)

Answer 1

Разобрался. Мне просто нужно было добавить DataBodyRange к этой строке. Код сейчас:

If Intersect(ActiveCell, ActiveSheet.ListObjects("Table1").ListColumns(2).DataBodyRange) Is Nothing Then
        MsgBox "You must select a cell in the appropriate column.", vbOKOnly + vbInformation, "Error"
    Else
        ActiveCell.Copy
        Sheets("Destination").Range("G3").PasteSpecial xlPasteValues
    End If