Not sure what is wrong in my pivot code..

[szakharov7723]

Sub Parts_code()

    Dim pt As PivotTable
    Set pt = ActiveSheet.PivotTables("PriceHistory")

    Dim pf As PivotField
    Set pf = pt.PivotFields("Description")

    Dim pi As PivotItem
    
    
For Each pi In pf.PivotItems.DataRange
.Interior.ColorIndex = 3

Next pi

End Sub

I identified Field
Identified items to be acted on
Identified range for statement
Provided statement.

What is wrong ?

 

[DanteAmor]

Try this

Sub Parts_code()
  Dim pt As PivotTable
  Dim pf As PivotField
  Dim pi As PivotItem
  
  Set pt = ActiveSheet.PivotTables("PriceHistory")
  Set pf = pt.PivotFields("Description")
    
  For Each pi In pf.PivotItems
    pi.DataRange.Interior.ColorIndex = 3
  Next pi
End Sub