In column C and D of the active sheet I had (row 1 to 6)
Sheet2 1
Sheet1 3
Graph Data 5
Sheet2 10
Sheet2 15
Sheet1 10
Sheets were Sheet1, Sheet2, Graph Data, Sheet4. Sheet4 was active and
contained the above.
Sub BBB()
numrows = 6
For i = numrows To 1 Step -1
Worksheets(Cells(i, 4).Value).Rows(Cells(i, 5).Value) _
.EntireRow.Clear
Next
End Sub
worked fine for me. Adapt it to your situation.
--
Regards,
Tom Ogilvy
"John Fevens" wrote in message
...
Tom,
Thanks for you response.
A couple of questions....if I change delete to clear will that also
work? I would rather leave the row nums in tact.
Alos, when I did a trila of your code I am getting a inval or
unqualified ref.
Maybe someday I should just break down and actaully learn some VBA!
Bill
*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!