Dynamisk diagram - problemer med 2 serier

Hej Eksperter!

Jeg har ET diagram, som via en formular combo box kan kan vise en række forskellige rapporter. De fleste har EN serie, men nu forsøger jeg at få den til at vise TO serier - og så går det galt. Nogen der kan hjælpe?

Koden til EN serie er her:

ElseIf Sheets("Systemvariable").Range("$C$31") = 22 Then

ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(1).Values = "=Aktivitetsplan!R46C6:R46C19"
    ActiveChart.SeriesCollection(1).Name = "=Aktivitetsplan!R46C3"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Realiserede Timer"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Timer"
    End With

... og koden til TO serier er her:

ElseIf Sheets("Systemvariable").Range("$C$31") = 23 Then

ActiveSheet.ChartObjects("Chart 1").Activate

    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(1).Values = "=Aktivitetsplan!R17C6:R17C19"
    ActiveChart.SeriesCollection(1).Name = "=Aktivitetsplan!R17C3"
    ActiveChart.SeriesCollection(2).Values = "=Aktivitetsplan!R40C6:R40C19"
    ActiveChart.SeriesCollection(2).Name = "=Aktivitetsplan!R40C3"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Total Acquistions vs. Aktivitet Acquisitions"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Acquisitions"
    End With

På forhånd tak :-)

gladhund