title: VBA:: Passing range results into an array
body: <p>I am currently working on a search function in VBA that will take the results from a searched range and input the address of the cell location into an array.  </p>
  
  <p>I have attempted to set up the array with the following code.  </p>
  
  <pre><code>Dim FindRange1 as Range
  Dim Find1 as Range
  Dim Results1() as Variant
  Dim R1 as integer
  Dim Max as integer
  
  Max = Range("E7:E1000").Cells.Count
  
         Set FindRange1 = Worksheets("Properties").Range("P7:P1000")
              If ILsearch.P1B1.Value = True Then
                  For R1 = 1 To Max
                      For Each Find1 In FindRange1
                          If (Find1.Value &lt; TextBox1) And (Find1.Value &gt; "0") Then
                              Results1(R1) = Find1.Address
                          End If
                      Next Find1
                  Next R1
              End If
  </code></pre>