ListObject.Active (Excel)
Returns a Boolean value indicating whether a ListObject object on a worksheet is active—that is, whether the active cell is inside the range of the ListObject object.
Because there is no Activate method for the ListObject object, you can activate a ListObject object only by activating a cell range within the list.
Dim booActive As Boolean
booActive = ActiveCell.ListObject.Active