Boa tarde!!

Eu não sei se eu entendi.

As TD estão em um única guia?

Caso sim tente.

Sub AleVBANãoTestado()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables 
MsgBox pt.Name
Next
End Sub

LIndooo!!!..rs
Valeu Alexandre, já vai ajudar bastante isso.

Boa tarde!!

Esta lista em todo o arquivo

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