Tom -

I think you meant

to
Source:=ChartRange

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______


Tom Ogilvy wrote:

No, you needed to change

Source:=Sheets("ChartData").Range(ChartRange),

to
Source:=ChartRange.Address


Source:=Sheets("ChartData").Range(ChartRange.Addre ss)

would work as well.


I also gave you that correction. Subscript out of range would indicate that
you don't have the proper name for your sheet.