在单独的工作表中使用For循环创建VBA图表时出现错误91

Sub CreateChart()
    Dim ws As Worksheet
    Dim cht As ChartObject
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将工作表对象赋值给变量
    
    ' 创建图表对象
    Set cht = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300)
    
    ' 设置图表数据源
    cht.Chart.SetSourceData Source:=ws.Range("A1:B10")
    
    ' 设置图表类型
    cht.Chart.ChartType = xlColumnClustered
    
    ' 设置图表标题
    cht.Chart.HasTitle = True
    cht.Chart.ChartTitle.Text = "Sales Data"
    
    ' 设置图表轴标签
    cht.Chart.Axes(xlCategory).HasTitle = True
    cht.Chart.Axes(xlCategory).AxisTitle.Text = "Month"
    cht.Chart.Axes(xlValue).HasTitle = True
    cht.Chart.Axes(xlValue).AxisTitle.Text = "Sales"
    
    ' 设置图表系列名称
    cht.Chart.SeriesCollection(1).Name = "Sales"
    
    ' 设置图表系列颜色
    cht.Chart.SeriesCollection(1).Interior.Color = RGB(255, 0, 0)
    
    ' 设置图表系列标签
    cht.Chart.SeriesCollection(1).HasDataLabels = True
    
    ' 设置图表图例
    cht.Chart.HasLegend = True
    
    ' 设置图表位置
    cht.Top = 100
    cht.Left = 100
    
    ' 设置图表大小
    cht.Width = 400
    cht.Height = 300
End Sub