Option Explicit
Function SHEET_NAME(TABLE_NAME As String) As String
Dim PT As PivotTable
Dim I As Integer
On Error GoTo NO_PT
Set PT = ActiveSheet.PivotTables(TABLE_NAME)
SHEET_NAME = PT.SourceData
I = InStr(PT.SourceData, "!")
SHEET_NAME = Left(SHEET_NAME, I - 1)
NO_PT:
End Function