Next without For Error-此代码有什么问题

Question

我认为下面的代码有问题，因为它给了我以下错误：Compile error: Next without For

我的代码出了什么问题？谢谢！：）

Sub CreateCharts()
    Dim i As Integer
    For i = 3 To 5
        col = Columns(i).Select
        Dim xaxis As Range
        Dim yaxis As Range
        Set yaxis = Range("$" & col & "$152", "$" & col & "$156")
        Set xaxis = Range("$A$152", "$A$156")
        Dim c As Chart
        Set c = ActiveWorkbook.Charts.Add
        Set c = c.Location(Where:=xlLocationAsObject, Name:="Sheet1")
        c.ChartType = xlColumnClustered
        Dim s As Series
        Set s = c.SeriesCollection.NewSeries
        With s
            .Values = yaxis
            .XValues = xaxis
    Next i
End Sub

Answer 1

您缺少一个End With:

    With s
        .Values = yaxis
        .XValues = xaxis
    End With ' <====== HERE
Next i