I read the microsoft macro for breaking the chart link at

http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q213443&
===
Sub BreakChartLinks()
For Each x In ActiveChart.SeriesCollection
  x.Values = x.Values
  x.XValues = x.XValues
  x.Name = x.Name
Next x
End Sub
=====
I tried that macro with their example:

A1: 1
B1: 2
C1: 3

and it worked. but when I tried the macro with charts that has
multiple data series it didn't work

I tried to modify it (to ex: 3 data series) as

===
Sub BreakChartLinks()

For I = 1 TO 3
For Each x In ActiveChart.SeriesCollection(I)
  x.Values = x.Values
  x.XValues = x.XValues
  x.Name = x.Name
Next x
Next I
End Sub
====
But it didn't work.

Is there anyway that this macro can be modified to delete the link for
any chart with multiple data series?

Thank