Fejl i makro

Får følgende fejl i min kode
Run-time error 1004;
Metoden Select for klassen Series mislykkes

Så hvordan finder jeg ud af hvad ActiveChart.SeriesCollection(4).Select er ?
Kan ikke finde noget på mine diagrammer der hedder noget med 4


Koden har virket for mig i lang tid, men ville lige ændere noget på valgte grafer,
men hvad er det som jeg er kommet til at ændre så makro ikke kan finde ud af det ?



ActiveChart.Axes(xlCategory).MinorGridlines.Select
   
      Windows("Målepunkter grafer.xls").SmallScroll ToRight:=-8
      ActiveChart.Axes(xlValue, xlSecondary).AxisTitle.Select
      ActiveChart.Axes(xlValue, xlSecondary).Select
      ActiveChart.Legend.Select
      ActiveChart.PlotArea.Select
      ActiveChart.ChartArea.Select
      ActiveChart.SeriesCollection(4).Select  *******************************************************Fejlen kommer her
      ActiveChart.SeriesCollection(3).Select
      ActiveChart.SeriesCollection(5).Select
      ActiveChart.SeriesCollection(5).XValues = "='Grafer'!" & dageomr & "C1:" & slutomr & "C1"
    ActiveChart.SeriesCollection(1).XValues = "='Grafer'!" & dageomr & "C1:" & slutomr & "C1"
    ActiveChart.SeriesCollection(2).XValues = "='Grafer'!" & dageomr & "C1:" & slutomr & "C1"
    Windows("Målepunkter grafer.xls").SmallScroll ToRight:=7
    ActiveChart.SeriesCollection(2).Select
    Windows("Målepunkter grafer.xls").SmallScroll ToRight:=11
    ActiveWindow.Visible = False
    Windows("Målepunkter grafer.xls").Activate
    ActiveSheet.ChartObjects("Diagram 21").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection(5).Select
    ActiveChart.SeriesCollection(5).Values = "='Grafer'!" & dageomr & "C32:" & slutomr & "C32"
    ActiveChart.SeriesCollection(5).XValues = "='Grafer'!" & dageomr & "C28:" & slutomr & "C28"
    ActiveChart.SeriesCollection(1).XValues = "='Grafer'!" & dageomr & "C28:" & slutomr & "C28"
    ActiveChart.SeriesCollection(2).XValues = "='Grafer'!" & dageomr & "C28:" & slutomr & "C28"