Excel 全系列收集问题

我正在使用以下代码绘制图形：

Set Date_Rng = range("Time_Series_Dates_1")

Set Rng_1 = range("Time_Series_1")
Sheet10.ChartObjects("Chart 2").Activate
With ActiveChart
  .SeriesCollection.Add Source:=Rng_1
   .ChartType = xlLineMarkers
  .Axes(xlCategory, xlPrimary).HasTitle = True
  .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Dates"
  .Axes(xlValue, xlPrimary).HasTitle = True
  .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "£ GDP"
  .Axes(xlCategory).HasMajorGridlines = True
  .SeriesCollection(1).Format.Line.ForeColor.RGB = RGB(255, 0, 0)
  .SeriesCollection(1).XValues = Date_Rng
 End With  

然后，我尝试执行以下操作：

           Selection.Formula = _
    "=SERIES(,'Tool v13.xlsm'!Time_Series_Dates_1,'Tool v13.xlsm'!Time_Series_1,1)"

我得到一个对象定义的错误！请问我做错了什么？ 我试过这个：

  With ActiveChart
   .SeriesCollection.NewSeries
   .FullSeriesCollection(1).Values = _
    "=='Tool v13.xlsm'!Time_Series_1"

   .ChartType = xlLineMarkers
  .Axes(xlCategory, xlPrimary).HasTitle = True
  .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Dates"
  .Axes(xlValue, xlPrimary).HasTitle = True
  .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "£ GDP"
  .Axes(xlCategory).HasMajorGridlines = True
  .SeriesCollection(1).Format.Line.ForeColor.RGB = RGB(255, 0, 0)
  .SeriesCollection(1).XValues = Date_Rng
 End With

---

但是没有运气。我的命名范围可能有什么问题吗？

调试时，在哪一行出现错误？Selection.Formula=\u“=SERIES（，'Tool v13.xlsm'！Time\u SERIES\u Dates\u 1，'Tool v13.xlsm'！Time\u SERIES\u 1,1）”或FullSeriesCollection（1）。value=\u“=='Tool v13.xlsm'！Time\u SERIES\u 1”“应用程序定义或对象定义的错误”