How do delete every second Row
Like we need another way to do this. This goes forward through the rows:
Set MyRange = Range("A9")
Do While MyRange < ""
MyRange.Offset(1, 0).EntireRow.Delete
Set MyRange = MyRange.Offset(1, 0)
Loop
--
Earl Kiosterud
mvpearl omitthisword at verizon period net
-------------------------------------------
"John" wrote in message
...
What code would I use to delete every second Row starting at Row 10 i.e.
delete Row10; 12; 14 etc?
Thanks
|