Option Explicit Sub Label_Everything() Dim j As Integer Dim Ser As Series Dim SingleCell As Range Dim LabelList As Range Application.ScreenUpdating = False Set LabelList = Worksheets("Work").Range("A2", "A52") ActiveSheet.ChartObjects("HexagonGridMap").Activate For Each Ser In ActiveChart.SeriesCollection j = 1 Ser.HasDataLabels = True Ser.DataLabels.Delete Ser.ApplyDataLabels For Each SingleCell In LabelList Ser.Points(j).DataLabel.Text = SingleCell.Value j = j + 1 Next SingleCell Ser.HasLeaderLines = False Ser.DataLabels.Position = xlLabelPositionCenter With Ser.DataLabels.Format.TextFrame2.TextRange.Font .BaselineOffset = 0 .Bold = msoTrue .Fill.Visible = msoTrue .Fill.ForeColor.ObjectThemeColor = msoThemeColorBackground1 .Fill.ForeColor.TintAndShade = 0 .Fill.ForeColor.Brightness = 0 .Fill.Transparency = 0 .Fill.Solid .Size = 24 .Italic = msoFalse End With Next Ser Application.ScreenUpdating = True End Sub