Well, a bit like that I guess.

[vba]

Sub DUPE_NAMES()
Dim Lastrow As Long
Dim rng As Range
Dim NewWb As Workbook

Application.ScreenUpdating = False

With ActiveSheet

Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row

'Add extra Column after "B"
.Columns(3).Insert
.Range("C1").Value = "Temp"

'create the SP formula
.Cells(2, "C").Resize(Lastrow - 1).Formula = _
"=SUMPRODUCT(--($A$2:$A2=A2),--($B$2:$B2=B2))"

'filter column C on the value >1
Set rng = .Range("C1").Resize(Lastrow)
rng.AutoFilter field:=1, Criteria1:=">1"

'select all matching rows
Set rng = rng.SpecialCells(xlCellTypeVisible)

'and copy if anything to copy
If Not rng Is Nothing Then

Set NewWb = Workbooks.Add
rng.EntireRow.Copy NewWb.Worksheets(1).Range("A1")
NewWb.Worksheets(1).Columns(3).Delete
'you may want to save newwb here
End If

'Deletes column C that contains the formula
.Columns(3).Delete
End With

Application.ScreenUpdating = True

End Sub
[/vba]