asked on
Sub DeleteBlankRows()
Dim Ws As Excel.Worksheet
For Each Ws In ThisWorkbook.Worksheets
Application.ScreenUpdating = False
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = True
Next
End Sub