Try using this, add a command button or autoshape button to run th
code

Regards,
Simon

Dim mycell
Dim rng As Range
t1 = InputBox("Enter the match you want", "What to look for?", "")
Set rng = Range("A:A")
For Each mycell In rng
If mycell.Value = t1 Then
mycell.Rows.Select
Selection.Copy
Sheets("Sheet2").Select
Set rng = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)(2)
rng.Select
ActiveSheet.Paste
End If
Next
End Su

--
Simon Lloy
-----------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...nfo&userid=670
View this thread: http://www.excelforum.com/showthread.php?threadid=55198