In general:
With Worksheets("Review")
Set rngCht = Union(.Range(.Cells(11, 7), .Cells(11, 24)),
..Range(.Cells(50, 25), .Cells(50, 61)))
End With
With ActiveChart.SeriesCollection.NewSeries
.Name = Worksheets("Review").Cells(vX, 2)
.Values = rngCht
End With
but Excel doesn't let you use a range that isn't a single row or a single
column for values, and your values are in rows 11 and 50. I generally prefer
to work with .Values and .XValues than with the series .Formula, but here
it's unavoidable. Use Tom's procedure.
- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. -
http://PeltierTech.com
_______
"John Hutcins" wrote in message
...
I am trying to create a chart with multiple series and each series having
values from non-continuous ranges. Can someone help by explaining why
this
doesn't work or what I should do instead.
Charts.Add
ActiveChart.ChartType = xlLineMarkers
With ActiveChart.SeriesCollection.NewSeries
.Name = Worksheets("Review").Cells(vX, 2)
.Values = Union(Range(Worksheets("Review").Cells(11, 7),
Worksheets("Review").Cells(11, 24)), Range(Worksheets("Review").Cells(50,
25), Worksheets("Review").Cells(50, 61)))
End With
I found the Uniton on this forum and it works for
ActiveChart.SetSourceData Source:=
But I need to do multiple series.
Thanks,
John