Hi,

Thanks for your reply.

Now I get another error

"Run-time error '9'
Subscript out of range"

Nevermind though. The solution was given to me at the Charting forum.

I had to change th
Source:=Sheets("ChartData").Range(ChartRange.Addre ss)
to Source:=ChartRange.Address.

Thanks

LoucaGree

--
Message posted from http://www.ExcelForum.com