I would like to delete rows in certain order in a MS Excel workshee
using VBA ONCE:-

Row 1 to 7
Row 57 to 64
Row 114 to 121
Row 171 to 178
Row 228 to 235
Row 285 to 292
Till the last row of the worksheet.
Any help?

Thank you


Susa

--
chongchingso
-----------------------------------------------------------------------
chongchingsoo's Profile: http://www.excelforum.com/member.php...fo&userid=1633
View this thread: http://www.excelforum.com/showthread.php?threadid=27727

Hello Susan,

Row 1 to 7 : 7 - 1 = 6 so 7 rows to delete
Row 57 to 64 64 - 57 = 7 so 8 rows to delete

So I assume you meant Row 57 to Row 63, and then Row 113 to 119, 169 to
175 and so on etc.. ?
Please check your seires.

Assuming the series as i mentioned above, you can use following code:

Sub RowDel()
Dim myRowNum As Integer
Dim myRowSet As Integer
Dim myNum As Integer
Dim myMaxRows As Integer
myRowNum = 1
myMaxRows = 3000 'maximum row number you intend to delete.
'care fully set myMaxRows. 65536 which is max. possible rows, will take
lot of time!!
Do While myRowNum <= myMaxRows
myNum = myRowNum
myRowSet = myRowNum + 6
Do While myNum <= myRowSet
Sheet1.Rows(myRowNum).Delete
myNum = myNum + 1
Loop
myRowNum = myRowNum + 49
Loop
End Sub

Sharad

"chongchingsoo" wrote in
message ...

I would like to delete rows in certain order in a MS Excel worksheet
using VBA ONCE:-

Row 1 to 7
Row 57 to 64
Row 114 to 121
Row 171 to 178
Row 228 to 235
Row 285 to 292
Till the last row of the worksheet.
Any help?

Thank you


Susan


--
chongchingsoo
------------------------------------------------------------------------
chongchingsoo's Profile:
http://www.excelforum.com/member.php...o&userid=16338
View this thread: http://www.excelforum.com/showthread...hreadid=277271