Failed Grade Count Problem Code

Private Sub cmdFailCount_Click()

    Dim myrange, mycell As Range

    Dim intCount As Integer

    Set myrange = Range("A1:A10")

    For Each mycell In myrange

        If mycell < 60 Then intCount = intCount + 1

    Next

    MsgBox "Number Failed is " & Str(intCount), vbOKOnly, _

        "Failed Test Count"

End Sub