one way

Sub Macro1()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -2
Rows(i).Delete
'or hide
'Cells(i, 1).EntireRow.Hidden = True
Next
End Sub

--
Don Guillett
SalesAid Software

"Ali" wrote in message
...
Hi everybody,

I have 63000 rows in which I wanna delete even OR odd rows. I know for
small
data how to delete rows but for this huge number of rows what is the
easiest
way?
many thanks.
Ali