We will use cell A1 on Sheet1 as the data to find.  Enter something in A1 and
each cell in Sheet2 will be scanned.  For each match, the address of the
match will be placed in column A and the match data will be placed in column
B.  This is a worksheet event macro:

Private Sub Worksheet_Change(ByVal Target As Range)
Set t = Target
Set a = Range("A1")
Set w = Sheets("Sheet1")
If Intersect(t, a) Is Nothing Then Exit Sub
Application.EnableEvents = False
v = a.Value
Sheets("Sheet2").Activate
i = 2
For Each r In ActiveSheet.UsedRange
   If InStr(r.Value, v) <> 0 Then
       w.Cells(i, 1).Value = r.Address
       w.Cells(i, 2).Value = r.Value
       i = i + 1
   End If
Next
Application.EnableEvents = True
Sheets("Sheet1").Activate
End Sub

Because it is worksheet code, it is very easy to install and automatic to use:

1. right-click the tab name near the bottom of the Excel window (Sheet1)
2. select View Code - this brings up a VBE window
3. paste the stuff in and close the VBE window

If you have any concerns, first try it on a trial worksheet.

If you save the workbook, the macro will be saved with it.

To remove the macro:

1. bring up the VBE windows as above
2. clear the code out
3. close the VBE window

To learn more about macros in general, see:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

To learn more about Event Macros (worksheet code), see:

http://www.mvps.org/dmcritchie/excel/event.htm