That misses some rows in cases where contiguous rows are both/all true

It is best to loop from highest to lowest in reverse

Public Sub dedupe()
Dim vx As Long
For vx = 100 To 1 Step -1
If Worksheets("Sheet1").Cells(vx, 1).Value Then Range("A" & _
vx).EntireRow.Delete
Next vx
End Sub


--
Regards
Tom Ogilvy

"Nigel" wrote in message
...
The following will test the contents of the first 100 rows of Column B if
it
is true then the row is deleted.

Public Sub dedupe()
Dim vx As Long
For vx = 1 To 100
If Worksheets("Sheet1").Cells(vx, 1).Value Then Range("A" &
vx).EntireRow.Delete
Next vx
End Sub

" wrote in message
...
I have a column of information that contains a list of
numbers. some of these numbers are duplicated and i want
to eliminate them. I sorted these numbers and then used
the =AND(H9=H10) to see which were duplicated (represented
as true). Is there a way to just go through and delete
the rows that are marked as true? Thanks a lot




----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet
News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000
Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption
=---