title: For Each Next loop unexpectedly skipping some entries
body: <p>I have been coding a macro in Excel that scans through a list of records, finds any cells with "CHOFF" in the contents, copying the row that contains it, and pasting those cells into another sheet. It is part of a longer code that formats a report. </p>
  
  <p>It has worked just fine, except that the "For Each" loop has been skipping over some of the entries seemingly at random. It isn't every other row, and I have tried sorting it differently, but the same cells are skipped regardless, so it doesn't seem to be about order of cells. I tried using InStr instead of cell.value, but the same cells were still skipped over. </p>
  
  <p>Do you have any idea what could be causing the code just not to recognize some cells scattered within the range?</p>
  
  <p>The code in question is below:</p>
  
  <pre><code>Dim Rng As Range
  Dim Cell As Range
  Dim x As Integer
  Dim y As Integer
  
  ActiveWorkbook.Sheets(1).Select
  
  Set Rng = Range(Range("C1"), Range("C" &amp; Rows.Count).End(xlUp))
  x = 2
  
  For Each Cell In Rng
  
      If Cell.Value = "CHOFF" Then
          Cell.EntireRow.Select
          Selection.Cut
          ActiveWorkbook.Sheets(2).Select
          Rows(x).Select
          ActiveWorkbook.ActiveSheet.Paste
          ActiveWorkbook.Sheets(1).Select
          Selection.Delete Shift:=xlUp
          y = x
          x = y + 1
      End If
  
  Next Cell
  </code></pre>