построение отрезков (точечных диаграмм)

[yakim0t0]

Всем привет!
Прошу помощи!
Дана следующая таблица (см. рисунок). На самом деле она значительно больше.



Каждые две пары точек (x; y1), (x; y2), ..., (x; y500) нужно соединить, т.е. в конечном счете получить несколько отрезков.
На листе уже есть пустая диаграмма (называется "Диаграмма 4"), т.е. нужно просто вставлять в нее значения.

Вот мой код:

Sub Macro()

	Dim lRow As Long, i As Long
  	Application.ScreenUpdating = False
  	lRow = Cells(Rows.Count, 1).End(xlUp).Row
    
	For i = 1 To lRow Step 2

	'
	' тут еще код (к вопросу не относится)
	'

	ActiveSheet.ChartObjects("Диаграмма 4").Activate
  	 ActiveChart.SeriesCollection.NewSeries
   	 ActiveChart.SeriesCollection(i).Name = "=Cells(i+1, Chr(34) & C & Chr(34))"
   	 ActiveChart.SeriesCollection(i).XValues = "=range(cells(i, Chr(34) & D & Chr(34)),cells(i, & Chr(34) & E & Chr(34)))"
    	 ActiveChart.SeriesCollection(i).Values = "=range(cells(i+1, Chr(34) & D & Chr(34)),cells(i+1, Chr(34) & E & Chr(34)))"

	Next i

End Sub

Ошибка: application-defined or object-defined error

Помогите исправить.
Очень жду!

[Казанский]

Попробуйте так:

     ActiveChart.SeriesCollection(i).Name = Cells(i + 1, "C")
     ActiveChart.SeriesCollection(i).XValues = Range(Cells(i, "D"), Cells(i, "E"))
     ActiveChart.SeriesCollection(i).Values = Range(Cells(i + 1, "D"), Cells(i + 1, "E"))

Если не пойдет - приложите файл XLS.

[yakim0t0]

Сообщение от Казанский

Попробуйте так:

     ActiveChart.SeriesCollection(i).Name = Cells(i + 1, "C")
     ActiveChart.SeriesCollection(i).XValues = Range(Cells(i, "D"), Cells(i, "E"))
     ActiveChart.SeriesCollection(i).Values = Range(Cells(i + 1, "D"), Cells(i + 1, "E"))

Если не пойдет - приложите файл XLS.

Спасиб за помощь, но, к сожалению не пошло!(
Приложил файл. Диаграмму надо построить на 2-м листе, первый только для расчетов.


=================================== =================================== =======================

Все понял, кажется это из-за i в SeriesCollection(i).
Надо было просто добавить еще одну переменную.