Excel Macros 10a

Sub GradeCount()
'
' GradeCount Macro
' Проверка на брой оценки
'

Dim otlichen, mnDobyr, dobyr, sreden, slab As Integer

    otlichen = WorksheetFunction.CountIf(Range("C2:C6"), 6)
    Range("G3").Value = otlichen


    MsgBox otlichen

'
End Sub