title: Delete every other row
body: <p>I want to write a loop that deletes entire rows in a sheet to clean-up the file. So if I have row 1 to 10, I want to delete row 1, 3, 5, 7, 9.</p>
  
  <pre><code>Sub deleteeveryotherrow()
   For x = 1 To 10
  
       Rows("x:x").Select
          Selection.Delete Shift:=xlUp
          x = x + 2
          Next x
  
      End Sub
  </code></pre>