copying entire row from one sheet to another

Hi,

What about multifind ...from Ron

Sub MultiFind() 
Worksheets.Select 
Application.Dialogs(xlDialogFormulaFind).Show 
ActiveSheet.Select 
End Sub

HTH
Carim