List all pivot tables within a worksheet

[robhumbug]

I'm trying to generate a list of pivot tables within a worksheet, along with their cell location. I found this code online, but can't find where it's printing the information...


Sub list_all_pivottables_on_worksheets_with_more_than_one_pivotable()
For Each ws In Worksheets
If ws.PivotTables.Count > 1 Then
For Each pt In ws.PivotTables
Debug.Print ws.Name & ":" & pt.Name
Next pt
End If
Next ws
End Sub


It'd be ideal for me to have this list, with PT name and location, printed into a clean worksheet.

Thanks for the help!

[dominicb]

Good evening robhumbug

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

DominicB