Delete a range of rows ?


I made this code to delete a range of rows, but I found out
that this code only delete every second row.

Do Until Worksheets("Materielplacering").Cells(lCurrentRow, 4).Value = ""
Worksheets("Materielplacering").Rows(lCurrentRow).Delete
lCurrentRow = lCurrentRow + 1
Loop

I need to delete some rows, starting from row X to Y
It must be possible to make it like Range.(X,Y).delete
or something like that, but I'm not sure how to write
this single line of code.






--
Mit fotoalbum
www.photo.activewebsite.dk


.