Un ejercicio cinco alumnos los cuales mande la calificación y de ahí en una celda colocar un color dependiendo la calificación

Prueba con esto

Sub pinta()
For i = 2 To Range("B1000").End(xlUp).Row
    If Cells(i, 2) = 100 Then
    Cells(i, 2).Select
    With Selection.Interior
    .Color = 12611584
    End With
    End If
Next i
End Sub

Se supone que los datos estan en la Columna A (Alumnos) Columna B (calificacion). Asigna ese macro a un boton.