не переходит на другой лист

[evdss]

Добрый день!
Подскажите, пожалуйста, не могу понять почему у меня выпол-ся только на одном листе(((

Dim i As Integer
For i = 1 To Sheets.Count
With Sheets(i)
Range("C14").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
Range("C14").Select
......................
...........................
Selection.AutoFill Destination:=Range("C128:K128"), Type:=xlFillDefault
Range("C8").Select
ActiveCell.FormulaR1C1 = _
"=SUM(R[6]C,R[12]C,R[18]C,R[24]C,R[30]C,R[36]C,R[42]C,R[48]C,R [54]C,R[60]C,R[66]C,R[72]C,R[78]C,R[84]C,R[90]C,R[96]C,R[102]C,R[108]C,R[114]C,R[120]C,R[121]C)"
Selection.AutoFill Destination:=Range("C8:K8"), Type:=xlFillDefault


End With
Next i
End Sub

[maksim_serg]

Потому что вот это:

With Sheets(i)
Range("C14").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"

это активный лист текущей книги.
А вот это:

With Sheets(i)
.Range("C14").FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"

лист, номер i