title: Evaluated range with `Int` function when range contains non integer values
body: <p>I would like my loop to evaluate values in a range and proceed if the value is non-zero and a whole integer. My range also contains alpha-numeric values and I would like those to be ignored.</p>
  <p>My loop is getting stuck when I hit one of those alpha-numeric values. How do I fix?</p>
  <p>My code:</p>
  <pre><code>Dim r2 As Range
  Dim fnd As Range
  Dim Answer3 As String
      For Each r2 In WorkRng2
          If r2.Value &lt;&gt; &quot;&quot; And WorksheetFunction.IsNumber(r2.Value) Then
              If r2.Value = Int(r2.Value) Then
              Set fnd = WorkRng1.Find(what:=r2.Value, LookIn:=xlValues)
                  If fnd Is Nothing Then
                  'nothing found
                  Answer3 = MsgBox(&quot;Cannot proceed! Major Task &quot; &amp; r2.Value &amp; &quot; could not be found in invoice review file!&quot;, vbOKOnly, &quot;Question!&quot;)
                      If Answer3 = vbOK Then
                          Exit Sub
                      Else
                      'fnd holds the cell that was found
                      End If
                  End If
              End If
          End If
      Next
  </code></pre>
  <p>Also, <code>WorkRng1</code> and <code>WorkRng2</code> are public variables.</p>