I have this situation  

[![enter image description here](https://i.stack.imgur.com/YSRYW.jpg)](https://i.stack.imgur.com/YSRYW.jpg)

The code deletes rows A3 and A10, though there are values at B3 and D10.

I want to delete rows across all the sheets in the workbook.

```
Sub Delete()
Dim xlastrow As Integer
Dim xrow As Integer
xrow = 1

Range("a65000").End(xlUp).Select
xlastrow = ActiveCell.Row

Do Until xrow = xlastrow

    If Cells(xrow, 1).Value = "" Then
        Cells(xrow, 1).Select
        Selection.EntireRow.Delete

        xrow = xrow - 1
        xlastrow = xlastrow - 1
    End If

    xrow = xrow + 1

Loop

End Sub

```