Need help with "For Each Cel" command.

Hi, could anyone help me with this task please?
In words, I want something like this:
1. If each cell value ( all cells) in Range ("A10:A13, A15:A18, A20:A22, A24:A26") = False , then MsgBox ("check 1")
2. If at list one (or 2 or all) cells = true in Range ( “A24”:A26”), then Range(“F27”) = “ fail/ incorrect or some other text”
Else (otherwise)
Range(“F27”)= “average/ or other text”

I tried with next one ( below), but it did not work from the beginning =/ something is wrong…

For Each Cel In Range("A10:A13,A15:A18,A20:A22,A24:A26")
If Cel.Value = False Then MsgBox ("check 1")
End
Next

Thanks in advance

did not work why? did you get an error, it doesn't do what you want... etc. Need more details.
you want to check all cells in your range, and only if they are all false you want to message? You know that a blank cell counts as False if you are checking for boolean values?

Yes, I want to check them all, and if they are all false, I want message.

It do not work as I want…. If range “A11” is “true” and all other = “false” it gives me box with message. But I don’t want it to appear if one of the cells is true…

Sorry, I don’t know what “boolean values” means in this case . This is my first task in VBA excel. ( this is only one small part of whole exercise) and i am little bit stuck here =/

Hi Clickme
boolean is a data type (like string, long, integer, etc.) Boolean variables are either True or False.
try replacing your code with this:

dim checker as boolean
checker = true
For Each Cel In Range("A10:A13,A15:A18,A20:A22,A24:A26")
     If Cel.Value = true Then checker = false
     End
Next
if checker = true then msgbox("Check 1")

OOPS!

dim checker as boolean
checker = true
For Each Cel In Range("A10:A13,A15:A18,A20:A22,A24:A26")
     If Cel.Value = true Then 
          checker = false
          End
     end if
Next
if checker = true then msgbox("Check 1")

instead of End you could also use Exit For... this would keep code below the check running instead of just ending the macro.

I posted my correction above, forgot to keep the "End" inside my IF statement, it should work fine that way now.

Solutions for the second problem are also welcome

Note, I corrected second problem (Range(“F27”) = “ fail/ incorrect or some other text” ) and also " average" is a text, not equation ) Sorry about this confusion...

I will try to fix it by myself tomorrow using/modifying previous example.
I know that it cold be done like:

If Range("A24") = True Then
Range("F27") = "Fail / or other text"
Else
Range("B27")= " average/ or some other text"
End If

and so on...

But I need shorter version, because I will use it several time....

P.S.
Sorry for my bad english

so...

Range("F27")="average/ or other text" 'this will make F27 average, but if any cells in range are true (below) then it will change to fail/...
for each cel in range("A24:A26")
     if cel.value = true then 
          Range("F27").value = " fail/ incorrect or some other text"
          exit for
     endif
next