Определить, является ли ячейка частью listobject или ее заголовком - VBA

Формулировка задачи:

На листе есть произвольные таблицы с заголовками listobject. Как можно определить, является ли текущая ячейка частью любой из этих таблиц? Если да, то как проверить: - находится ли она в последней строке (либо в строке итогов), - является ли она заголовком этой таблицы?

Решение задачи: «Определить, является ли ячейка частью listobject или ее заголовком»

textual
                            Листинг программы 
                        

                            Sub Test_Cell()
    Dim MyTable As ListObject, isect As Range
    For Each MyTable In ActiveSheet.ListObjects
        Set isect = Application.Intersect(ActiveCell, MyTable.Range)
        If Not (isect Is Nothing) Then
            MsgBox "ActiveCell принадлежит таблице " & MyTable.Name
            Set isect = Application.Intersect(ActiveCell, MyTable.HeaderRowRange)
            If Not (isect Is Nothing) Then
                MsgBox "ActiveCell в заголовке"
            End If
            Set isect = Nothing
            On Error Resume Next
            Set isect = Application.Intersect(ActiveCell, MyTable.TotalsRowRange)
            If Not (isect Is Nothing) Then
                MsgBox "ActiveCell в итогах"
            End If
            On Error GoTo 0
        End If
    Next
End Sub
                        