What problem are you having?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Ctech" wrote in
message ...

Your macro worked fine, when it was used on a range in Column A, however
I need it to work everywhere in the wb.

So I've made my own littile marco, which should fix this problem.
However Im having some problems with the addtounion part.

Macro:

Dim DelRg As Range

Private Sub cmd_OK_Click()
Dim mRange As Range
Dim mTest As Range
Dim mRows As Long
Dim mCell As Range
Dim Cell As Range
Set DelRg = Nothing

Set mRange = Range(Duplicates.RefEdit1)
Set mTest = mRange.Offset(0, 1)
Set mCell = mTest.Cells(1)
mRows = mRange.Rows.Count

If cb_delete Then
mTest.EntireColumn.Insert Shift:=x1ToLeft
Set mTest = mRange.Offset(0, 1)
mTest.Select


mTest.Formula = "=COUNTIF($A$1:A1,A1)"

For Each Cell In mTest
If Cell.Value 1 Then
AddToUnion Cell

End If
Next Cell


If Not DelRg Is Nothing Then DelRg.EntireRow.Delete Shift:=x1up

mTest.EntireColumn.Delete Shift:=x1ToLeft

End If

If cb_color Then
'****Not needed yet ****
End If

Unload Duplicates

End Sub
Sub AddToUnion(Cell As Range)

Set DelRg = Union(DelRg, Cell)

End Sub


--
Ctech
------------------------------------------------------------------------
Ctech's Profile:
http://www.excelforum.com/member.php...o&userid=27745
View this thread: http://www.excelforum.com/showthread...hreadid=486784