Show both text & numerical values in pivot chart

[KDbird]

Hi! Trying to figure out a way to create a pivot chart where the value will show as "SUPP" if <= 9... anything >=10 will show the value... Any ideas?

 

[Worf]

Welcome to the Board

Sub PvChart()
Dim ch As Chart, a, i%, s As Series
Set ch = ActiveSheet.ChartObjects("chart 4").Chart
Set s = ch.SeriesCollection(1)
s.HasDataLabels = 0
s.HasDataLabels = 1
a = s.Values
For i = LBound(a) To UBound(a)
    If a(i) <= 9 Then _
    s.DataLabels(i).Format.TextFrame2.TextRange.Characters.Text = "SUPP"
Next
End Sub