Deleting Rows

Posted by Don on October 22, 2001 12:53 PM

Does anyone have a macro that will select a range and delete every 3rd row.

Thanks

Posted by EDDIE G on October 22, 2001 1:00 PM

This will delete every third row starting from cell A1 as long as there is data in the column

Sub rowdeleter()
Range("A1").Select 'starting point
Do While Selection &LT;&GT; ""
Selection.EntireRow.ClearContents
Selection.Offset(3, 0).Select
Loop
Range("A3").Select

End Sub