draw borders around deleted duplicate cells

[hayk_yer - ExcelForums.com]

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

 

[Don Guillett]

try adding the line below

Cells(RowNdx, ColNum).Value = ""

Cells(RowNdx, ColNum).Borders.LineStyle = xlContinuous

 

[Andoni]

Sub TryThiss()
Dim X As Long
Dim Y As Long
Dim Z As Long
Dim Cell As Range

'This will give you a pink colour to all dupliocates values
'''For Each Cell In Selection
''' If Application.WorksheetFunction.CountIf(Selection, Cell) >
2 Then
''' Cell.Interior.ColorIndex = 7
''' End If
'''Next Cell


'If the values are within the selected Cells in Column(1)
'First we will sort in ascending order to make easyer the job
With Selection
.Sort _
Key1:=.Cells(1), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
X = .Columns(1).Cells(1).End(xlDown).Row
Y = .Columns(1).Cells(1).Row + 1
On Error Resume Next
For Z = X To Y Step -1
''''.Columns(1).Cells(Z).Select
If .Columns(1).Cells(Z).Value = .Columns(1).Cells(Z - 1).Valu
Then
.Columns(1).Cells(Z).BorderAround ColorIndex:=3
Weight:=xlMedium
End If
Next Z
End Wit

 

[hayk_yer - ExcelForums.com]

Thanks for the replies but none of this codes helped
I think I need to have some variable for the cell width (that I ca
change from the code)
I would really like to use the code that I have specified
Thanks again
Hay

 

[hayk_yer - ExcelForums.com]

Or is there a code to draw border at a specified size, i.e
to have bordered table of 3 cells X 6 cells and have it pasted ove
the selection