Range.ListObject (Excel)

Retorna um objeto ListObject para o objeto Range . ListObject somente leitura.

Dim lstobjListObject As ListObject
Set lstobjListObject = ActiveCell.ListObject