for i = 10 to 1 step -1
if application.CountA(cells(i,1).EntireRow) = 0 then
cells(i,1).EntireRow.Delete
end if
Next


--
Regards,
Tom Ogilvy

"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