Listar o nome de todas as Tabelas Dinâmicas do 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