Ok, here is what I have for the "search" button on the user form...

Private Sub CommandButton1_Click()
State = Sheet1.Range("H")
Car = Sheet1.Range("C")
Color = Sheet1.Range("M")
Dim TheAnswer As String
Dim workign As Worksheet, dumping As Workbook
Set workign = ActiveSheet
Set dumping = Workbooks.Add
For x = 1 To 17
working.rows(x).EntireRow.copy
dumping.Activate
ActiveSheet.Paste
ActiveCell.Offset(1).Select
Next
For x = 1 To
workign.Cells.SpecialCells(x1Cells(x1CellTypeLastC ell).Row If
LCase$(working.Cells(x,8).Value) = TheAnswer Then dumping.Activate
ActiveSheet.Paste
ActiveCell.Offset(1).Select
End If
Next
End Sub

Are you offering this as the solution to this thread? This appears to
be doing similar to what you were looking for help with in your Feb
26th post under to subject "Input, copy, new book?"! I posted a rework
of your code sample there on Mar 18th. Did you read it yet?

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion