title: Using the Find Function in VBA
body: <pre><code>1
  2
  3
  4  
  .
  .
  </code></pre>
  
  <p>So I have a sequence of numbers running from 1-20. I have the number "1" on top selected and I would like to search the entire column and find the number "9". The code works when I don't name the range "rng"; it finds the number and selects. But the code stops working when I name the range of number. What's wrong with the range function? could it be that if I define <code>Dim rng as Range</code> that when I later define the <code>"Set rng="</code> I cannot have the <code>".Select"</code> or <code>".Copy"</code> extension on the end? </p>
  
  <pre><code>Sub macro2()
  
  Dim rng As Range
  Set rng = Range(ActiveCell, ActiveCell.End(xlDown)).Select
  rng.Find(10).Select
  
  End Sub
  </code></pre>
  
  <p>Also, If I want to sum the entire column from 1-20, on the last cell below the number "20" should I use the following code? because the application object doesn't seem to do it. Thank you!</p>
  
  <pre><code>rng.End(xlDown).Offset(1, 0).Select
  Application.WorksheetFunction.Sum (rng.Value)
  </code></pre>