copying entire row from one sheet to another

Just to add to Carims macro

Sub MultiFind()
    Columns("A:A").Select

Application.Dialogs(xlDialogFormulaFind).Show
    Columns("A:G").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("a1").Select
End Sub

Sorry about that, I was just looking at carims code to open the find dialog box and thought what if I added this or that to it,

You need to loop throught the worksheets to find your title instead of just one sheet, I'll work on it