Man.... sometimes I want to pull my hair out...

If sanitycheck > -1 Then
'Chart logic
Dim cdf_livepips As Object
Dim cfsrs As Series

'Top left draw-down chart
Set cdf_livepips = ActiveSheet.ChartObjects.Add(Left:=300, Width:=300, Top:=10, Height:=300)
cdf_livepips.Select
cdf_livepips.Name = "cdf_livepips"
'apply series to active chart
Selection.Name = "cdf_livepips"
Set ns5 = ActiveChart.SeriesCollection.NewSeries
'Set ns6 = ActiveChart.SeriesCollection.NewSeries
ns5.XValues = dd_durationArray
ns5.Values = dd_arraycdf



'create the chart dimensions and style
With cdf_livepips
    .Chart.ChartType = xlXYScatterLines
    .Left = 750
    .Width = 700
    .Top = 350
    .Height = 300
    .Chart.SeriesCollection(1).MarkerStyle = xlLine
    .Chart.SeriesCollection(1).Format.Line.DashStyle = msoLineSysDash
    .Chart.SeriesCollection(1).Border.Weight = xlThin
    .Chart.SeriesCollection(1).MarkerStyle = 1
    .Chart.SetElement (msoElementLegendBottom)
    .Chart.Axes(xlCategory, xlPrimary).TickLabels.NumberFormat = "hh"
    .Chart.Axes(xlCategory, xlSecondary).TickLabels.NumberFormat = Percent

...
Why does this not work!?

run-time error '-21476 bla bla bla....