Fjerne tidligere grafer

Jeg har følgende sub:

Public Sub ClearChart(chartNo As Integer)

    Dim i As Integer

    'activate the chart we're working with
    Sheets("Charts").Select
   
    ActiveSheet.ChartObjects("Chart" & chartNo).Activate
   
    If ActiveChart.SeriesCollection.Count > 0 Then
        With ActiveChart
            For i = .SeriesCollection.Count To 1 Step -1
              .SeriesCollection(i).Delete
            Next i
        End With
    End If

End Sub

Men jeg får fejlmeddelsen: Delete method of Series class failed

og jeg fatter hat af hvorfor. Jeg har tjekket, at parameteren "chartNo" antager de rigtige værdier, og selv når jeg tester på et enkelt chart (med navnet "Chart1"), får jeg fejlmeddelsen.

Nogen ide om hvorfor?

Mvh Morten