connect.ubc.ca grades fixer from history log

Sub summary()
    For i = 2 To 4000
        lab = Sheet1.Cells(i, 2).Value
        If Len(lab) = 4 And Left(lab, 3) = "Lab" Then
            labid = CInt(Right(lab, 1))
            ID = Sheet1.Cells(i, 4).Value
            Name = Sheet1.Cells(i, 7).Value
            grade = Sheet1.Cells(i, 9).Value
            If (Not IsEmpty(grade) And grade <= 2) Then
                r = Application.Match(CStr(Name), Workbooks("grades.xls").Sheets(1).Range("C1:C252"), 0)
                If r = 0 Then Debug.Print Name
                'lab grade columns X Y Z onwards
                labgrade = Workbooks("grades.xls").Sheets(1).Cells(r, 23 + labid).Value
                ov = 0
                If (grade > labgrade) Then ov = 1
                If grade > 2 Then Debug.Print "-------" + CStr(ID)
                If ov Then
                    'Debug.Print CStr(Name) + " " + CStr(labid) + " " + CStr(grade) + "?" + CStr(labgrade) + "[" + CStr(ov) + " on row=" + CStr(r)
                    Workbooks("grades.xls").Sheets(1).Cells(r, 23 + labid).Value = grade
                End If
            End If
        End If
    Next
End Sub