If you plot a simple chart you will see the series values are formulas
not ranges
=Sheet1!$A$2:$B$2
a formula will have an equal sign at the beginning.
You need to make the following changes
from
ActiveChart.SeriesCollection(1).XValues = rng1
ActiveChart.SeriesCollection(1).Values = rng13
to
ActiveChart.SeriesCollection(1).XValues = "=" & rng1.address
ActiveChart.SeriesCollection(1).Values = "=" & rng13.address
--
joel
------------------------------------------------------------------------
joel's Profile:
http://www.thecodecage.com/forumz/member.php?u=229
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=195127
http://www.thecodecage.com/forumz