Deleting entire rows

E

Ed C

I would like to delete a collection of rows without using the absolute row
number; how does one do this?

Assume cursor is in row 25, column A
Something like: for i = 1 to 5
selection.row
selection.row.delete
next i

Thanks,

EdC
 
J

JulieD

Hi Ed

how about

ActiveCell.Rows("1:1").EntireRow.Select
For i = 1 To 5
Selection.Delete Shift:=xlUp
Next

Cheers
JulieD
 
R

Ron de Bruin

Try this

This will delete the activecell row + 4 rows below it

ActiveCell.Resize(5).EntireRow.Delete
 
Top