Easy Question
Try this statement to delete instead.
SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
"Posse John" wrote:
I need to check each row of a database to ensure it is not blank (this is
performed after importing data from an external source).
If the cell is blank, I need to delete the entire row.
The problem I'm having is if two blank rows are next to each other. The
routine I use does not delete the second row, because of the deletion of the
first one.
How do I 'reset' the variable to the row before the deletion, so that the
routine catches the second blank row?
For Each cl In Range("A2:A" & Range("A65500").End(xlUp).Row).Cells
If cl = Empty Then
cl.EntireRow.Delete
End If
Next
|