Sub delete_even_rows()
Dim r As Long
Dim rng As Range
Dim numLoops As Long

Set rng = Range("A1:A60000")
numLoops = Int((rng.Rows.Count / 2))
For r = 1 To numLoops
rng(r + 1, 1).entirerow.Delete
Next
End Sub


Gord Dibben MS Excel MVP

On Wed, 16 Apr 2008 03:44:00 -0700, SI wrote:

hello, i have a spreadsheet with about 60,000 data points in it, Excel will
only let me plot 32,000 points!
Is there a way/formular so i can delete everyother row? ie,so instead of
having rows numbered 1,2,3,4,5,6,7,8,9,10. I would end up with 1,3,5,7,9 and
so on!
This would give me around 30,000 points!

Thanks,
Simon.