As answered in .programming:

You can test if the active cell is in a pivot table, and if it is, get
the pivot table name:

Sub test()
    Dim pt As PivotTable

    On Error Resume Next
    Set pt = ActiveCell.PivotTable

    If pt Is Nothing Then
        Debug.Print "Active cell is not in a pivot table"
    Else
        Debug.Print ActiveCell.PivotTable.Name
    End If

    Set pt = Nothing
End Sub