Hi khen1,

Try this:

Sub Test()
With ActiveSheet
For i = .Cells(.Rows.Count, "A"). _
End(xlUp).Row To 2 Step -2
.Rows(i).Delete
Next i
End With
End Sub


Regards,
KL


"khen1" wrote in message
...
I'd like to create a macro that deletes every other row. When I record the
macro it only deletes the cell I used for recording. How do I make the
macro
so it runs on any cell?