Deleting the first series in a chart

[Boogerbut74]

[

Sub Test_7()
    
    Dim lastrow As Integer
    Dim GraphRange As Range
    
    lastrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 10).End(xlUp).Row
    
    'set chart data range (including series names)
    Set GraphRange = ActiveSheet.Range("D10:T" & lastrow)
    
    'Create a chart
    Set cht = ActiveSheet.ChartObjects.Add( _
    Left:=ActiveCell.Left, _
    Width:=450, _
    Top:=ActiveCell.Top, _
    Height:=250)
    
    'Give chart some data
    cht.Chart.SetSourceData Source:=GraphRange

    
    
    'Determine the chart type
    cht.Chart.ChartType = xlXYScatterSmooth
    'edits chart detailes
    cht.Chart.Axes(xlCategory).MinimumScale = 0
    cht.Chart.Axes(xlCategory).MaximumScale = 100
    
    cht.Chart.Axes(xlValue).MinimumScale = 115
    cht.Chart.Axes(xlValue).MaximumScale = 140
    
    cht.Chart.Legend.Position = xlLegendPositionBottom
 
     
    [B] ActiveChart.FullSeriesCollection(1).Delete
    [/B]
    
End Sub

I am trying to delete my first series in my chart.
With the sheet i am working with I can not move the data around. i have tried using record macro and then trying to rewrite the code to work in my original code but i keep getting Object Variable or With variable not set

 

[rlv01]

cht.select
ActiveChart.FullSeriesCollection(1).Delete

or

 cht.Chart.FullSeriesCollection(1).Delete