Naming Series Problem

[fugima]

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