[font=Verdana][color=darkblue]Option[/color] [color=darkblue]Explicit[/color]
[color=darkblue]Sub[/color] test()
[color=darkblue]Dim[/color] LastRow [color=darkblue]As[/color] [color=darkblue]Long[/color]
[color=darkblue]Dim[/color] NextRow [color=darkblue]As[/color] [color=darkblue]Long[/color]
[color=darkblue]Dim[/color] i [color=darkblue]As[/color] [color=darkblue]Long[/color]
Application.ScreenUpdating = [color=darkblue]False[/color]
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
NextRow = 1
[color=darkblue]For[/color] i = 1 [color=darkblue]To[/color] LastRow
[color=darkblue]If[/color] WorksheetFunction.CountIf(Range(Cells(1, "A"), Cells(LastRow, "A")), Cells(i, "A").Value) > 1 [color=darkblue]Then[/color]
Cells(NextRow, "C").Value = Cells(i, "A").Value
NextRow = [color=darkblue]Next[/color]Row + 1
[color=darkblue]End[/color] [color=darkblue]If[/color]
Next i
Application.ScreenUpdating = [color=darkblue]True[/color]
MsgBox "Completed...", vbInformation
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[/font]