IF Range is not equal to zero THEN msgbox

[egiannaros]

I am trying to write a macro that will look at a range of cells and tell me if ANY of those cells Does Not equal zero. The purpose of this macro is for data control.

This is what I have tried so far, but it is not working:

Public Sub Run_WD2_Recon()
 
If Range("C96:J108").Select <> 0 Then
MsgBox ("Variance Detected! Macro Will End Now.")
GoTo 10
 
'More VB Code will be added here at a later time.
 
10:
End If

I tested the code while all cells in the range have zero in them and I am incorrectly prompted by the Msgbox. What am I doing wrong? Thanks.

 

[Jonmo1]

Try changing

If Range("C96:J108").Select <> 0 Then

to

If Application.Countif(Range("C96:J108"),"<>0")>0 Then

 

[egiannaros]

Thank you! It worked perfectly. I tested it with positive and negative variances.

This function will be very useful for other tasks I have as well!