For each new PivotField apply Data Bar to Datarange

[szakharov7723]

I am trying to apply data bar individually for every Field in PivotTable
Like this :

I was trying to create a code to start new datarange for every active field, but got stuck with this.

Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim pfs As PivotFields



Set pfs = pt.PivotFields("Description")
For Each pi In pfs
pt.PivotFields("Sum of Defects").DataRange.Select
Next pi

Unsurprisingly, it didn't work

Please help me to find the right code for this case