Need help with Selecting muiple Cells and then checking all of the values in a IF statment.

[aragon123321]

Why will this not work?
Does anyone know how they could check each score in a range and run each cell through the If statment.
Here is what I have.

Thank You! Or if you have a link to where i could find the answer I would really appreciate that also.


Dim Cell As Integer, result As String
Cell = Range("B3:B15").Value
If score >= 6 Then
result = "pass"
Else
result = "fail"
End If
Range("B1").Value = result

 

[Takae]

Check each range and result is in column C.


Sub sample()
Dim Cell, result As String, i As Long
i = 3
For Each Cell In Range("B3:B15").Value
If Cell >= 6 Then
Cells(i, 3).Value = "pass"
Else
Cells(i, 3).Value = "fail"
End If
i = i + 1
Next
End Sub


Or, all score must be over 6.

Sub Sumple1()
Dim Cell, result As String, i As Long
For i = 3 To 15
If Cells(i, 2).Value < 6 Then
Range("B1").Value = "fail"
Exit Sub
End If
Next
Range("B1").Value = "pass"
End Sub

 

[aragon123321]

Thank you so much!!! This is perfect you are a beast Takae!! I really appreciate it, I was stuck on that for a little while trying to get what I wanted.
Thanks!