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:

Please Login or Register  to view this content.

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.