用VB新增EXCEL线段时发生的错误

timohu

目前在玩的功能是连续对同一个EXCEL数据存入数据、画图
按按钮一下，程序会增加两笔X，Y的数据
并利用这些数据在同一个Chart中画一个XY曲线图
(开新的EXCEL后档名都是BookX，因为我还没进行存档)

但是当我在画图的时候，（按按钮的时候）
偶而会发生错误(通常都不会发生错误，但有时候就会出现0.0)
err.Number:91
err.Description:没有设定对象变量或 With 区块变量
在下面这行：
ws.Application.ActiveChart.SeriesCollection.NewSeries
以下是我新增XY曲线(ChartType = 75)的部分程序代码
     For i = 1 To No
     chartSer = No * (CNT - 1) + i
     IntPosV$ = 2 * i
     IntPosI$ = 2 * i - 1
     lineX = "=Sheet1!R" & CStr(CNT*4) & "C" & IntPosI & ":R" & Area & "C" & IntPosI
     lineY = "=Sheet1!R" & CStr(CNT*4) & "C" & IntPosV & ":R" & Area & "C" & IntPosV
     ws.Application.ActiveChart.SeriesCollection.NewSeries
     ws.Application.ActiveChart.SeriesCollection(chartSer).XValues = lineX
     ws.Application.ActiveChart.SeriesCollection(chartSer).Values = lineY
     Next i

ps.会是因为这段程序前后有一些With XXX, End With的东西而影响吗？
(贴上来这段程序法内无任何With的叙述，也就是在这段之前就都已经End With了)

snood

VB的

不要试

timohu

请问VB的不要试 是什么意思呢？

或是我该用其它写法？