Sub Etiquettes()
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel
ActiveChart.SeriesCollection(1).DataLabels.Font.Size = 10
ActiveChart.SeriesCollection(1).DataLabels.Border.LineStyle = xlNone
With ActiveChart.SeriesCollection(1)
For i = 1 To .Points.Count
.Points(i).DataLabel.Characters.Text = ActiveSheet.Cells(i + 5, 3)
.Points(i).DataLabel.Interior.ColorIndex = Range("VAR")(i).Interior.ColorIndex
.Points(i).Interior.ColorIndex = Range("VAR")(i).Interior.ColorIndex
Next i
End With
End Sub