This code
Sub CreateChart()'PURPOSE: Create a chart (chart dimensions are required)
Dim rng As Range
Dim cht As ChartObject
Dim i As Long
i = Cells(2, "P").Value
'Debug.Print "P2 =", i
'Your data range for the chart
Set rng = ActiveSheet.Range("P4:U" & i)
'Create a chart
Set cht = ActiveSheet.ChartObjects.Add( _
Left:=30, _
Width:=580, _
Top:=250, _
Height:=320)
'Give chart some data
cht.Chart.SetSourceData Source:=rng
'Determine the chart type
cht.Chart.ChartType = xlXYScatterLines
cht.Chart.HasTitle = True
cht.Chart.ChartTitle.Text = Cells(2, 4).Value & "-Site Model of Population"
End Sub
produces this chart Chart.3g.1.jpg
I would like it colored to look like Chart.3g.jpg Note, the two charts use different data.