创建图表并向其添加新系列

Question

我正在尝试使用下面的代码将新图表添加到我的工作簿中。但是，每次我尝试运行它时，我都会在Name属性上收到错误object doesn't support this property or method。我试图使用完全合格的工作簿名称，但仍然没有运气。代码：

Charts.Add
With ActiveChart.SeriesCollection.NewSeries
        .Name = ActiveSheet.Range("A2")
        .Values = ActiveSheet.Range("B2:AK2")
        .XValues = ActivehSheet.Range("A2:A7")
End With

我甚至尝试过以下方式使用代码：

Charts.Add
With ActiveChart.SeriesCollection.NewSeries
        .Name = finalViewsWbk.Sheets(1).Range(finalViewsWbk.Sheets(1).Cells(2, 1))
        .Values = finalViewsWbk.Sheets(1).Range("B2:AK2")
        .XValues = finalViewsWbk.Sheets(1).Range("A2:A7")
End With