title: Loop through each cell in a range of cells when given a Range object
body: <p>Let's say I have the following code:</p>
  
  <pre><code>Sub TestRangeLoop()
      Dim rng As Range
      Set rng = Range("A1:A6")
  
      ''//Insert code to loop through rng here
  End Sub
  </code></pre>
  
  <p>I want to be able to iterate through a collection of <code>Range</code> objects for each cell specified in <code>rng</code>.  Conceptually, I'd like to do it like so:</p>
  
  <pre><code>For Each rngCell As Range in rng
       ''//Do something with rngCell
  Next
  </code></pre>
  
  <p>I know I could solve this by parsing <code>rng.Address</code> and building <code>Range</code> objects manually, but I'm hoping there is a more direct way that doesn't involve string parsing.</p>