Range.ListObject (Excel)

Returns a ListObject object for the Range object.

Dim lstobjListObject As ListObject
Set lstobjListObject = ActiveCell.ListObject