Error 1004 en SeriesColection

Saludos Foro!!!!

Inserte una grafica
Tengo un combo donde seleccionan el año y la grafica muestra la tendencia
de
ese año
Pero a veces recibo un error 1004 Imposible asignar el metodo XValues

A que se debera????

Gracias y Feliz Año Nuevo

mySheet.ChartObjects("Gráfico 4").Activate
ActiveChart.ChartArea.Select
With ActiveChart.SeriesCollection(1)

Select Case ThisWorkbook.Worksheets("TENDENCIAS
($)").cmbPeriodo.Value

Case "2004"
.XValues = mySheet.Range("B10:M10")
.Values = mySheet.Range("B11:M11")
Case "2003"
.XValues = mySheet.Range("B10:M10")
.Values = mySheet.Range("B12:M12")
Case "2002"
.XValues = mySheet.Range("B10:M10")
.Values = mySheet.Range("B13:M13")
Case "2001"
.XValues = mySheet.Range("B10:M10")
.Values = mySheet.Range("B14:M14")
Case "2000"
.XValues = mySheet.Range("B10:M10")
.Values = mySheet.Range("B15:M15")
Case "TODOS"
.XValues = mySheet.Range("B7:F7")
.Values = mySheet.Range("B8:F8")

End Select

End With