title: For Each Loop, need to skip
body: <p>I'm having an issue where I get stuck in an infinite loop (infinite through the end of the range, that is) with my For Each Next loop. I know that I can't loop backwards, and of course can't have a standalone "Next":</p>
  
  <pre><code>Dim region As Range
  Set region = Range("C4:CC4")
  
  For Each Cell In region
      If Len(Cell) &gt; 0 Then
          Cell.Offset(0, 1) = Cell.Value
          **Need "Next Cell" Here**
      End If
  Next Cell
  </code></pre>
  
  <p><strong>EDIT</strong>: Thanks for answers so far, but I think I need to clarify: The issue isn't the infinite loop per se. Right now, it's taking my range and going cell by cell to see if it has something written in the cell. If it does, then it copies it to the one to the right of it and loops. The issue is specifically that if does copy a value, then it needs to skip that cell into which the value was just copied, otherwise it begins the infinite loop. Essentially, I need a way to "Skip" or "Next Cell" in the middle of the If statement.</p>
  
  <p><strong>EDIT 2</strong> Thanks again - Cool Blue's comment's link was the solution!</p>