Delete rows
 

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?

Delete rows
 

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

"ArthurJon" wrote in message
...
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?