Excel – Listar todas tabelas dinâmicas via VBA
Para listar todas as tabelas dinâmicas de uma sheet basta usar o seguinte código: Sub ListaTabelas() Dim tabela As PivotTable i = 1 For Each tabela In ActiveSheet.PivotTables Range(“A” & i) = tabela.Name i = i + 1 Next tabela Leia mais …
