Pivot table error message but can't find the offending pivot table

Well, I eventually found the offending pivot table. But as far as I know, the only way to do it was to go to each pivot and look at the source data. I ended up listing each pivot table's tab location, cell location, pivot table name and source data on another sheet within the workbook. By doing this I found the incorrect source data and realized that I had so many PTs that were looking at the same area, but different ranges. I decided to keep this list for any future issues and may do this for other workbooks that I have with pivot tables.

Is there anyone that can write a macro that would look at the entire workbook and list the pivot table source data and/or possibly the other references that I listed above? In older versions of Excel, you could create a pivot from a previous pivot to cut down on workbook size. What happened to that feature?