message box if no cells in range > 0

[ThomasOES]

Hello
I need vba code to check a range of cells for value greater than zero.
Ive set the range = colval
If there is no value in the range greater than zero I want a message box "No Value > 0"

Thanks for any help

 

[JoeMo]

Maybe:

If Application.Countif(colval,">0")>0 then MsgBox "No value > 0"

 

[ThomasOES]

Thanks mvp

 

[JoeMo]

Thanks mvp

You are welcome - thanks for the reply.

 

[Rick Rothstein]

Maybe:

If Application.Countif(colval,">0")>0 then MsgBox "No value > 0"

Did you write this correctly? Shouldn't the second greater than symbol be an equal sign instead?

 

[JoeMo]

Did you write this correctly? Shouldn't the second greater than symbol be an equal sign instead?

Yikes!!! You are correct. The OP said: "If there is no value in the range greater than zero I want a message box "No Value > 0""
Guess I missed the bold no and focused on the message . Thanks for the catch.

 

[ThomasOES]

Yikes!!! You are correct. The OP said: "If there is no value in the range greater than zero I want a message box "No Value > 0""
Guess I missed the bold no and focused on the message . Thanks for the catch.

Thanks guys. Code works perfect now.