How to check cells in a range for a value

[BCS]

I have written a macro that compares one set of values with another. 99% of
the time, the cells in the results table are 0. Instead of keeping the
workbook open just so I can make sure all the cells in the range are indeed
0, can I add this check to my macro so that a message box pops up only if
one of the cells has a value > 5 otherwise close the workbook. I know I can
check cell by cell using a loop, but I'd rather use some sort of Range
syntax to check it all in one fell swoop.

Thanks,

Barry

 

[Ron de Bruin]

You can check it like this

If Application.WorksheetFunction.CountIf(Range("a1:a10"), ">5") <> 0 Then