When I attempt to use the following to update series values using an array, The series don't maintain their coloration and defaults to one of the available presets.
With Chart_Dictionary.Item("Non-C").Chart
For L = 1 To 4
.FullSeriesCollection(L).XValues = Date_Range...