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