Ask for Data, Hide non-matches, Report, unhide with Macro

Marc
Try this :-

Sub Hide_Rows()
Dim aRange As Range, cell As Range
Dim lookFor As String
Application.ScreenUpdating = False
Set aRange = Range(Range("D1"), Range("D65536").End(xlUp))
Do
lookFor = Application.InputBox(Prompt:="Enter the thingy in Column D to look for.")
If lookFor = "False" Then
Exit Sub
ElseIf lookFor <> "" Then
For Each cell In aRange
If cell.Value <> lookFor Then
cell.EntireRow.Hidden = True
End If
Next cell
aRange.SpecialCells(xlCellTypeVisible).EntireRow.Select
'PUT YOUR CODE FOR PRINTING (OR WHATEVER) HERE
aRange.EntireRow.Hidden = False
Exit Sub
Else
MsgBox "You did not enter any thingy."
End If
Loop
End Sub

Celia

Improved version

Improved version :-

Sub Hide_Rows()
Dim aRange As Range, cell As Range, C%
Dim lookFor As String
Application.ScreenUpdating = False
Set aRange = Range(Range("D1"), Range("D65536").End(xlUp))
Do
lookFor = Application.InputBox(Prompt:="Enter the thingy in Column D to look for.")
If lookFor = "False" Then
Exit Sub
ElseIf lookFor <> "" Then
For Each cell In aRange
If cell.Value = lookFor Then
C = C + 1
ElseIf cell.Value <> lookFor Then
cell.EntireRow.Hidden = True
End If
Next cell
If C = 0 Then
MsgBox "There is no match in Column D"
aRange.EntireRow.Hidden = False
Else
aRange.SpecialCells(xlCellTypeVisible).EntireRow.Select
'PUT YOUR CODE FOR PRINTING (OR WHATEVER) HERE
aRange.EntireRow.Hidden = False
Exit Sub
End If
Else
MsgBox "You did not enter any thingy."
End If
Loop
End Sub

Celia

Thanks a million again ...

Celia, it worked like a charm. I select the unhidden rows, paste them to a new worksheet, and report, then added a clear contents on the new worksheet for the next run.
I have one other question though, when I do the save of the Word Document, I am adding the date to the name of the template I am using. Is there a way to add the search string from this Macro to the name?