PivotField.SourceName (Excel)
Returns a String value that represents the specified object's name as it appears in the original source data for the specified PivotTable report.
The value of this property might be different from the current item name if the user renamed the item after creating the PivotTable report. The following table shows example values of the SourceName property and related properties, given an OLAP data source with the unique name "[Europe].[France].[Paris]" and a non-OLAP data source with the item name "Paris".
Dim strSourceName As String
strSourceName = ActiveCell.PivotField.SourceName