hi,

currently i´m using this loop

x = 1

While Cells(x, 1) < "Endlog"
If Cells(x, 4) = "INFORMATION" Then
Range("A" & x & ":K" & x).Select
Range("A" & x & ":K" & x).Delete
x = x - 1
End If

x = x + 1

Wend

in a macro to delete all rows from a sheet that contain the ter
information in column 4, it´s for log file viewing.

endlog is the last word in the sheet.
it works fine, but:

deleting up to 30.000 rows in a sheet this way takes quite a long time
up to half an hour... is there any way to make the task run faster?
with a do...loop or any other, faster working loop

--
Message posted from http://www.ExcelForum.com