[RESOLVED] Simple duplicate eliminating script

[heinz1218]

Hey all, kinda new to the whole vba thing.

I'm trying to do something fairly simple: I have a couple hundred lines of data in a spreadsheet, and there are duplicates from when i complied all the data together. I've sorted the list alpha by company name. I'm trying to write a simple script that checks column B (the name of the company) against the following row to see if it's a duplicate; if it is delete the entire row, and then recheck (because there can be 3-4 duplicate entries), if it's not a duplicate move onto the next row.

Thanks a bunch guys, i'm just having trouble finding a good resource for vba online.

[Static]

how about this:

Private Sub RemDups()
    Dim ROW As Integer
    ROW = 1
    Do Until Range("B" & ROW) = ""
        Range("B" & ROW).Select
        If Range("B" & ROW) = Range("B" & ROW + 1) Then
            Rows(ROW & ":" & ROW).Delete Shift:=xlUp
        Else
            ROW = ROW + 1
        End If
    Loop
End Sub

[heinz1218]

Thanks a bunch, Static, that worked great. Just out of curiousity, why'd you make it a Private? I couldn't see it in my macro list until i removed the private attribute.

Thanks again