Hi, I'm attempting to step through a pivot table that is sliced by year, however, it's not stepping through the pivot table. It does appear as if it is stepping through the years, ie, it shows 2018 then a bunch of data, however, the fields and the data are not correct. Here is my code, is there something I'm doing wrong? Right now I'm only trying to display the data w a msgbox

' Process thru pivot table
Dim wbSItem As SlicerItem
Dim pt As pivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim strMsg As String

Set pt = ActiveSheet.PivotTables("CaseSummary")

For Each wbSItem In wbSCache.SlicerItems
If wbSItem.Selected Then
MsgBox wbSItem.Value
For Each pf In pt.PivotFields
MsgBox pf
For Each pi In pf.PivotItems
MsgBox pi
Next pi
Next pf
End If
Next wbSItem