title: ActiveCell.EntireRow.Delete
body: <p>I have this VBA code to delete rows in excel</p>
  
  <pre><code>Sub deleterows() 
  i = 1       
  Do Until i = 150000
  If ActiveCell.Value = False Then 
  ActiveCell.EntireRow.Delete
  End If
  ActiveCell.Offset(1, 0).Activate
  i = i + 1
  Loop
  End Sub
  </code></pre>
  
  <p>However this code is not deleting all the rows that contain the "False" value, I've been trying to change it to activecell.value="" and activecell.value=vbnullstring but still it does not deletes all blank  rows</p>