Listar o nome de todas as Tabelas Dinâmicas do arquivo

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Listar o nome de todas as Tabelas Dinâmicas do arquivo

Mensagem por alexandrevba em Qua Abr 16, 2014 4:31 pm

Boa tarde!!
Como listar o nome de todas as Tabelas Dinâmicas de arquivo ativo.
Código:
Sub Nomes_TD()
'Listar o nome de todas as TD do arquivo
    Dim wks As Worksheet
    Dim pt As PivotTable
    
    For Each wks In Worksheets
        For Each pt In wks.PivotTables
            MsgBox pt.Name
        Next pt
    Next wks
    
    Set pt = Nothing
    Set wks = Nothing

End Sub

Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum