how do I identify the OLAP datasource of a pivot table
 

I have many pivot tables in a work book. How do I identify the OLAP
datasource of each pivot table without having to write it down somewhere.
Is there some VB code I could use?

Thanks