I've created a macro that creates a bar chart. In part of the macro I wrote some code that loops thru and changes the first 20 bars of the chart to a specific color. I then save the workbook and re-open and my data labels are lost. I found that by changing the colors of the bars it causes the data labels to not show upon re-open.
Does anyone have a possible solution to get the data labels to show and be able to change the color of the bars?
Here is the code that changes the colors of the bars.
Thanks for any help you can give me.

'Sets first 20 bars to dark blue
record_count = x - 2

If record_count >= 20 Then
i = 0
Do Until i = 20
ActiveChart.SeriesCollection(1 + i).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 41
.Pattern = xlSolid
End With
i = i + 1
Loop
End If