Converter para o intervalo - dinamicamente agarra tablename

Question

Encontrei o seguinte post neste site.

ActiveSheet.ListObjects("TableName").Unlist

O problema é que eu obtenho tabelas diferentes e não sei o nome da tabela. Eu sei que o A2 sempre será uma parte da tabela e eu vejo o nome da tabela na planilha no excel. Existe uma maneira de pegar o nome da tabela e aplicá-lo dinamicamente no código?

    

Answer 1

Sim:

ActiveSheet.cells(2,1).ListObject.Name

Dá-lhe o nome da tabela em que a Cell A2 está. Assim:

ActiveSheet.ListObjects(ActiveSheet.cells(2,1).ListObject.Name).Unlist

Vai fazer o trabalho