Deleting empty rows (special case)
 

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

Deleting empty rows (special case)
 

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