ListObject.Active (Excel)

Retorna um valor Boolean que indica se um objeto ListObject em uma planilha está ativo, ou seja, se a célula ativa está dentro do intervalo do objeto ListObject . Boolean somente leitura.

Como não há um método Activate para o objeto ListObject , você pode ativar um objeto ListObject apenas ativando um intervalo de células dentro da lista.

Dim booActive As Boolean
booActive = ActiveCell.ListObject.Active