Проблемы работы с диграммами

[Сеньерадж]

Здравствуйте,
Процедура присвоения значений диаграмме работала нормально, но создал новую диграмму и перестала. На строке Cha.SeriesCollection(1).XValues говорит "Нельзя установить свойство XValues класса Series".
Ряд в диаграмме есть.

Private Sub PaintPressure()
Dim i%, Sh, Cha: Set Sh = Sheets("А"):
Set Cha = Sheets("A").ChartObjects("WaterSatu ration").Chart
For i = 0 To nx
Sh.Cells(i + 1, 1) = x0 + i
Sh.Cells(i + 1, 2) = p(i)
Next i
Cha.SeriesCollection(1).XValues = Range(Sh.Cells(1, 1), Sh.Cells(nx + 1, 1))
Cha.SeriesCollection(1).Values = Range(Sh.Cells(1, 2), Sh.Cells(nx + 1, 2))
Cha.Axes(xlCategory, xlPrimary).MaximumScale = x1
Cha.Axes(xlCategory, xlPrimary).MinimumScale = x0
End Sub

[Dophin]

что такое nx?

приложите файл