removing duplicates in a row

[Lavan]

Hello All,

Need a macro to delete the duplicate data in a row. My data is like below...

1 Peter Tom Sam Jack Peter Peter
2 Dave Tom Chris Tom Tony
3 Peter Mike Mike Sam
4 Bob Bob

I am looking for a macro to delete all these duplicates in row so that my data should look like below.

1 Peter Tom Sam Jack
2 Dave Tom Chris Tony
3 Peter Mike Sam
4 Bob

Please help.... Thanks in advance,
Lavan

 

[ageren]

Sub lavan()
z = 1
son = [a65536].End(3).Row
Range("A1").Select
For s = 1 To son
e = WorksheetFunction.CountA(Rows(ActiveCell.Row))
a = 0
For y = 1 To e
For i = 1 To e - a
If ActiveCell.Value = ActiveCell.Offset(0, i).Value Then
   ActiveCell.Offset(0, i).ClearContents
   End If
Next i
ActiveCell.Offset(0, 1).Select
If ActiveCell.Value = 0 Then ActiveCell.Delete Shift:=xlToLeft
a = a + 1
Next y
z = z + 1
Range("A" & z).Select
Next s
End Sub

 

[Lavan]

Ageren, Great!!! Perfect!!!! Thanks a ton

 

[ageren]

glad, if it would be usefull.......