Delete rows

A

ArthurJon

Here's a real simple one.
Starting in the row where the cursor is, I'd like to
delete every other row. Can someone give me the code for
this?
 
D

Don Lloyd

Hi,

Do it from the bottom up. Select the bottom row to be deleted.

Sub DelRows()
Dim Rw
Rw = ActiveCell.Row
Do
Rows(Rw).Delete
Rw = Rw - 2
Loop Until Rw < 1
End Sub

regards,
Don
 
Top