For j = 3 To 26
For i = 4 To 10000
If Worksheets("Sheet1").Cells(i, j) >=0.5 Then
bool = True
If bool = True Then Exit For
End If
Next i
Next j
If bool Then MsgBox "A value is wrong"
If bool Then Cells(i, j).Select
If bool Then Exit Sub
If Not bool Then
MsgBox "Go on"
End If