エラー1004定義済みまたはオブジェクト定義エラー

Question

次のコードでは、1004エラーが発生しています。私が理解できないので、私はここで何が欠けているのか教えてください。デフォルトでは

Sub updatechart(Nombre As Variant) 
Dim cht As Chart 
Dim rng As Range 
Dim cmb As ComboBox 
Dim Fila As Integer 
Dim ser As Series 
Dim rng1 As Range 
Dim rng2 As Range 
Dim rngdata As Range 
Dim s As Integer 
Worksheets(2).Activate 
Set cmb = Sheets(2).ComboBox1 
Set cht = ActiveSheet.ChartObjects(1).Chart 
Set rngdata = Sheets(1).Range("b6:f370") 
semana = cmb.Value 
Fila = BuscaPalabra1(semana) 

For Each ser In cht.SeriesCollection 
    ser.Delete 
Next 

For s = 3 To rngdata.Columns.Count 
    Set ser = cht.SeriesCollection.NewSeries 
    Set rng1 = Sheets(1).Range(Cells(Fila, s), Cells(Fila + 7, s)) 
    Set rng2 = Sheets(1).Range(Cells(Fila, 2), Cells(Fila, 2)) 

    With ser 
     .XValues = rng2 
     .Values = rng1 
    'cht.SeriesCollection(contador).Select 
    ' cht.SetSourceData Source:=Sheets("datos").Range("rng1", "rng2") 

    End With 

Next 

End Sub 

Answer 1

通常のコードモジュール（ないシートのコードモジュール）からRange()またはCells()への呼び出し、それが特定のシートでそれらのすべてを修飾するのがベストですので、ActiveSheetを使用します。

With Sheets(1) 
    Set rng1 = .Range(.Cells(Fila, s), .Cells(Fila + 7, s)) 
    Set rng2 = .Cells(Fila, 2) 
End with 

rng1とrng2のような感じが違うのですが？