how to delete every 2nd row efficiently in a macro

[guruman]

Hi,

Currently I have;

Range( _
"2:2,4:4,6:6,8:8,10:10,12:12,14:14,16:16,18:18,20:20,22:22,24:24,26:26,28:28,30:30,32:32,34:34,36:36,38:38,40:40,42:42,44:44"). _
Select
Range("A28").Activate
Selection.delete Shift:=xlUp

Is there a way to shorten this, or have it set up with a variable or loop so that it will delete every second row up to 100, and then if I need more, say 200, just by changing that one number.

Thanks.

 

[acw]

Hi

One way

Sub aaa()
For i = 100 To 2 Step -2
Cells(i, 1).EntireRow.Delete
Next i
End Sub

Tony