VBA ActiveChart.SeriesCollection (numero) .XValues

Tengo este código;

Estoy creando charts en Excel, pero siempre aparece un error cuando creo xValues. Ayuadame.

Private Sub CommandButton3_Click() Dim VectorGrafica(26) As Integer Dim count As Integer Dim ho As Integer Dim ma As Integer Dim ejex As Range Dim numero As Integer Dim ejey As Range count = 0 da = 1 If ComboBox3 = "" Or ComboBox4 = "" Then MsgBox "No ha determinado el horizonte de time", vbOKOnly, "Horizonte de time" End If For s = 24 To 46 If Controls("CheckBox" & s) = True Then count = 1 + count VectorGrafica(da) = 1 da = da + 1 Else VectorGrafica(da) = 0 da = da + 1 End If Next s If count = 0 Then MsgBox "No ha seleccionado ningún rubro", vbOKOnly, "Rubros" End If If count > 0 Then numero = 1 Select Case ComboBox3.ListIndex Case 0 ma = 2 Case 1 ma = 3 Case 2 ma = 4 Case 3 ma = 5 Case 4 ma = 6 Case 5 ma = 7 Case 6 ma = 8 Case 7 ma = 9 Case 8 ma = 10 Case 9 ma = 11 Case 10 ma = 12 Case 11 ma = 13 End Select Select Case ComboBox4.ListIndex Case 0 ho = 2 Case 1 ho = 3 Case 2 pa = 4 Case 3 ho = 5 Case 4 ho = 6 Case 5 ho = 7 Case 6 ho = 8 Case 7 ho = 9 Case 8 ho = 10 Case 9 ho = 11 Case 10 ho = 12 Case 11 ho = 13 End Select Dim hola As Range ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select For i = 1 To 25 If VectorGrafica(i) = 1 Then ActiveChart.Activate Set rangedenombre = Sheets(ComboBox6.Text).Cells(i + 1, 1) ActiveChart.SeriesCollection.NewSeries ActiveChart.FullSeriesCollection(numero).Name = rangedenombre ActiveChart.SeriesCollection(numero).XValues = _Sheets(ComboBox6.Text).Range(Cells(1, ma), Cells(1, ho)) ActiveChart.SeriesCollection(numero).Values = Sheets(ComboBox6.Text).Range(Cells(i + 1, ma), Cells(1 + i, ho))*** numero = numero + 1 End If Next i End If End Sub 

La parte con *** me muestra un error, pero no sé por qué. Estoy tratando de hacer un gráfico en Excel. ¡Por favor, ayúdame!

 Sheets(ComboBox6.Text).Range(Cells(i + 1, ma), Cells(1 + i, ho)) 

La llamada .Range está calificada con una Sheet específica.

Cells llamadas de Cells , por otro lado, no lo son; se están refiriendo implícitamente a ActiveSheet ; si esa no es la misma hoja. .Range está calificado, puede esperar que ocurra un error.

Mantenga una reference a su hoja con un bloque With , y califique sus llamadas Range y Cells con un punto:

 With Worksheets(comboBox6.Text) ActiveChart.SeriesCollection(numero).Values = _ .Range(.Cells(i + 1, ma), .Cells(i + 1, ho)) End With