title: for each loop in excel macros vba jumping alternate rows
body: <p>I have the below code in vba. The rows in sheet5 from columns a5 to a20 are:</p>
  
  <p>a5=Sweden</p>
  
  <p>a6=Spain</p>
  
  <p>a7=Russia</p>
  
  <p>a8=Italy</p>
  
  <p>a9=Germany</p>
  
  <p>a10=Finland</p>
  
  <p>a11=Norway</p>
  
  <p>a12=Switzerland</p>
  
  <p>a13=France</p>
  
  <p>a14=Belgium</p>
  
  <pre><code>Set fillcolumnrange = Sheet5.Range("A5:A20")
  i = 1
  For Each Row In fillcolumnrange.Rows
   If Not Sheet5.Range("A" &amp; i + 4) = "" Then
      MsgBox Row(i)
   End If
   i = i + 1
  Next Row
  </code></pre>
  
  <p>But this code is prompting only alternate values ie. </p>
  
  <p>Sweden</p>
  
  <p>Russia</p>
  
  <p>Germany</p>
  
  <p>Norway</p>
  
  <p>France</p>
  
  <p>Can anyone please help me out find the bug in the code</p>