VBA通过循环索引更新图表

Question

此代码是通过循环更新图表上的系列，它返回运行时错误＆＃34;找不到具有指定名称的项目＆＃34;。我相信它可能是＆＃34;我＆＃34;索引导致问题？我没有声明，但可能变量类型不匹配

For i = 1 To 3
    With Sheets("data").ChartObjects("Chart 1").Chart.SeriesCollection(i) 'error here
        .XValues = Range(Range("b55"), Range("b55").End(xlDown))
        .Values = Range(Cells(55, 2 + i), Cells(55, 2 + i).End(xlDown))
    End With
Next i