Naming Series Problem

When I run this code, it doesn't name the series to what I want (Chart Name), it just calls it the default "Series 1". How do i fix this problem?

    With ActiveSheet.ChartObjects.Add _
            (Left:=100, Width:=375, Top:=75, Height:=225)
        .Chart.SetSourceData Source:=Sheets("Run Data (9 blade)").Range("B3:B15,D3:D15")
        .Chart.ChartType = xlXYScatterLines
        .Name = "Chart Name" 
        .Chart.Location Where:=xlLocationAsNewSheet
    End With

for some reason you did not include Chart in the object reference for Name as you did all the other properties. Doing so meant you named the chart object instead of the series.

    With ActiveSheet.ChartObjects.Add _
            (Left:=100, Width:=375, Top:=75, Height:=225)
        .Chart.SetSourceData Source:=Sheets("Run Data (9 blade)").Range("B3:B15,D3:D15")
        .Chart.ChartType = xlXYScatterLines
        .Chart.SeriesCollection(1).Name = "Chart Name" 
        .Chart.Location Where:=xlLocationAsNewSheet
    End With