Cor,

Dim x as Long
Dim lrow as Long

lrow = Cells(Rows.COUNT, "A").End(xlUp).Offset(1, 0).Row
' determine number of rows

For x = lrow to 1 step -1
If Worksheetfunction.Counta(Rows(x)) = 0 then
Rows(x).EntireRow.Delete
End if
Next

steve

"Cor Steeghs" wrote in message
...
I would appreciate any of your help in the following:
How can it be detected whether all cells in a row are completely empty?
In this case I want to delete empty rows.
Thanks very much for your attention and/or reply and best regards,
Cor Steeghs