Write a simple Macro to delete every alternative rows (1, 3, 5...)

Hi all,

I am writing a macro in excel 2002 to delete rows in row 1, row3, row 5...and so on.
Here is my macro:

Sub delete()
Sheets("arbitrary").Select
Dim endingRow As Variant
endingRow = 30
For x = 2 To endingRow
Selection.Rows(x).EntireRow.delete
x=x+1
Next x
End Sub

But it doesn't work.

I have read the page in Microsoft web site before, but I want to write a more simple program instead:
http://support.microsoft.com/kb/213610

Could you help me out please.