Macro para listar tablas dinámicas de un archivo

Con esta macro tendrás a un botonazo todas las tablas dinámicas de tu archivo. Para que no se pierda ninguna.

Código de la macro

Sub ListarTablasDinamicas()

Dim numDinamicas As Integer
Dim numHojas As Integer
Dim i As Integer
Dim y As Integer
Dim Nombre As String
Dim tblDinamicas

numHojas = ActiveWorkbook.Worksheets.Count

For i = 1 To numHojas

numDinamicas = Sheets(i).PivotTables.Count

For y = 1 To numDinamicas

    Nombre = Sheets(i).Name & ": " & Sheets(i).PivotTables(y).Name
    tblDinamicas = tblDinamicas & vbNewLine & Nombre

Next y

Next i

If tblDinamicas = «» Then
MsgBox «En el archivo no hay tablas dinámicas»
Else
MsgBox tblDinamicas
End If

End Sub

Como copiar y pegar el código

Como insertar una macro en la cinta de opciones personalizada