Hello everyone
I am using the following code to remove the duplicates from a selecte
column
Sub FixDuplicateRows(
Dim RowNdx As Lon
Dim ColNum As Intege
ColNum = Selection(1).Colum
For RowNdx = Selection(Selection.Cells.Count).Row To
Selection(1).Row + 1 Step -
If Cells(RowNdx, ColNum).Value = Cells(RowNdx - 1, ColNum).Valu
The
Cells(RowNdx, ColNum).Value = "
End I
Next RowNd
End Su

I need to draw a border when the program finishes to remove
duplicate, i.e. suppose I have the following data

Brian Smit
Brian Smit
Brian Smit
John Grea
John Grea
John Grea

I need to have the following outpu
-------------
Brian Smith
Smith
Smith
-------------
John Great
Great
Great
-------------
This is urgent
Thanks in advanc
Hay
--------
Message sent via www.excelforums.com