Sub Macro1()
'
' Macro1 Macro
'
Dim i As Integer
i = 7
For i = 7 To 36
ActiveSheet.ChartObjects("Chart 3").Activate
With ActiveChart.SeriesCollection.NewSeries
.Name = ActiveSheet.Range("A" & i)
.Values = Range("c" & i, "g" & i, "k" & i, "o" & i, "s" & i)
End With
Next i
End Sub
For the code above the trouble im having is getting the values to work for that range. Can someone please tell me why that notation wont work. I have tried with just one cell .Values = Range("c" & i) and it works but now i need those other data points to be included.
Bookmarks