title: Macro running infinite loop
body: <p>I'm trying to run my first macro against a dataset with almost 11k rows. However when I run it, it freezes Excel making me have to force quit it. </p>
  
  <p>What I expect to happen is in cell 11 for each row, that contains 1-5 elements "blue|red|gray|round". I want to copy that entire row to a new sheet for each element, updating cell 11 in that row to the element. </p>
  
  <p>So in this example, with the 4 elements above, 4 rows (one for each element) would be written to the new sheet.</p>
  
  <pre><code>Option Explicit
  Sub ReorgData2()
      Dim i As Long
      Dim WrdArray() As String
      Dim element As Variant
      Application.ScreenUpdating = False
      With Sheets("Sheet5")
          For i = 1 To Rows.Count
              WrdArray() = Split(.Cells(i, 11), "|")
              For Each element In WrdArray()
                  ActiveCell.EntireRow.Copy
                  Sheets("Sheet6").Paste
                  Sheets("Sheet6").Cells(i, 11) = element
              Next element
          Next i
      End With
      Application.ScreenUpdating = True
  End Sub
  </code></pre>