a backwards looping macro something like

Sub deleteeverythridrow()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -2
Rows(i).Delete
Next i

End Sub
--
Don Guillett
SalesAid Software

"kotlon" wrote in
message ...

Can this be done quickly? For example you have 300 rows and you wanna
delete 1,4,7,10 etc...?


--
kotlon
------------------------------------------------------------------------
kotlon's Profile:
http://www.excelforum.com/member.php...o&userid=35431
View this thread: http://www.excelforum.com/showthread...hreadid=552000