title: How to delete rows with no entries?
body: <p>I have this situation<br />
  <a href="https://i.stack.imgur.com/YSRYW.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/YSRYW.jpg" alt="enter image description here" /></a></p>
  <p>The code deletes rows A3 and A10, though there are values at B3 and D10.</p>
  <p>I want to delete rows across all the sheets in the workbook.</p>
  <pre><code>Sub Delete()
  Dim xlastrow As Integer
  Dim xrow As Integer
  xrow = 1
  
  Range(&quot;a65000&quot;).End(xlUp).Select
  xlastrow = ActiveCell.Row
  
  Do Until xrow = xlastrow
  
      If Cells(xrow, 1).Value = &quot;&quot; Then
          Cells(xrow, 1).Select
          Selection.EntireRow.Delete
          
          xrow = xrow - 1
          xlastrow = xlastrow - 1
      End If
          
      xrow = xrow + 1
  
  Loop
  
  End Sub
  </code></pre>