Недостаток в "Расчет средней оценки"

[roxy7]

Преподаватель сказал, что в этом модуле есть недостаток. Помогите его найти и исправить.

Public Sub SrBal(c1 As Single, c2 As Single, c3 As Single) 
  Dim i As Integer
  Sheets("Результаты").Activate
  For i = 2 To Application.WorksheetFunction.CountA(ActiveSheet.Columns(1))
      c1 = c1 + Cells(i, 3)
      c2 = c2 + Cells(i, 4)
      c3 = c3 + Cells(i, 5)
  Next i
  i = i - 2
  c1 = c1 / i
  c2 = c2 / i
  c3 = c3 / i
End Sub

Обработчик нажатия на кнопку «Расчет средней оценки»:

Private Sub CommandButton1_Click()
    Dim c1 As Single, c2 As Single, c3 As Single
    Call Module1.SrBal(c1, c2, c3)
    TextBox3.Text = Format(c1, "###.##")
    TextBox4.Text = Format(c2, "###.##")
    TextBox5.Text = Format(c3, "###.##")
End Sub

[nerv]

Sheets("Результаты").Activate ' это заменить обращением к листу

c1 = c1 + Cells(i, 3).Value ' вместо c1 = c1 + Cells(i, 3)

i = i - 2 ' <-- наверно, это самый главный

[kuklp]

For i = 2 To Application.WorksheetFunction.CountA(ActiveSheet.Columns(1)) + 1

Но я бы сделал так:

Public Sub SrBal(c1 As Single, c2 As Single, c3 As Single)
    Sheets("Результаты").Activate
    c1 = Application.Average(Columns(3).SpecialCells(2, 1))
    c2 = Application.Average(Columns(4).SpecialCells(2, 1))
    c3 = Application.Average(Columns(5).SpecialCells(2, 1))
End Sub

[roxy7]

Спасибо большое вам, nerv и kuklp!