title: Error when match is not found when using Find method
body: <p>I know this probably has extensive coverage, and I've tried a few of those, but still can't get it to work:</p>
  <pre><code>        Dim d As Range
          For Each d In orng
              Dim val As Range
              Set val = adws.Range(&quot;O2:O&quot; &amp; lrw).Find(d.Value, , xlValues, xlWhole).Offset(0, 26)
              
              If val Is Nothing Then
                  MsgBox d.Value &amp; &quot; not found.&quot;
                  End
              Else
                  d.Offset(0, 12) = val.Value
              End If
          Next
  </code></pre>
  <p>Code works fine as long as the function finds a value, but gets error on the first one that it does not. Setting the val variable and running the Find function on the same line, I got from other forums. But this doesn't seem to work at all. Find still gets confused when it can't find a value.</p>
  <p>Thanks in advance.</p>