Hi,
Try the following variation of the FindAll sub. It does depend upon how your system names the textboxes. If there is a problem, can you zip up a workbook containing a suitable "Data" page and post it here. (You can delete all the data on the sheet if you wish, as it is unnecessary)

[VBA]
Sub FindAll()

Dim WB As Workbook
Dim WS As Worksheet
Dim Cell As Range
Dim Prompt As String
Dim Title As String
Dim Search As String
Dim FindCell() As String
Dim FindSheet() As String
Dim FindWorkBook() As String
Dim FindPath() As String
Dim FindText() As String
Dim Counter As Long
Dim FirstAddress As String
Dim Path As String
Dim MyResponse As VbMsgBoxResult
Dim FileName As String
Dim Test As Boolean
Dim MyWS
Dim shp
Dim i As Integer
Dim BoxText As String

'*** Get folder from user ***
' Prompt = "Select the folder with the files that you want to search through." & _
' vbNewLine & vbNewLine & "Note: Subfolders will not be searched through."
Title = "Folder Selection"
' MsgBox Prompt, vbInformation, Title

'*** This code works with XP only and is also used to pick a folder ***
'Application.FileDialog(msoFileDialogFolderPicker).Show
'Path = CurDir

Path = BrowseFolder("Select A Folder")
If Path = "" Then
Prompt = "You didn't select a folder. The procedure has been canceled."
Title = "Procedure Canceled"
MsgBox Prompt, vbCritical, Title
GoTo Canceled:
End If

Prompt = "What do you want to search for in the folder: " & vbNewLine & vbNewLine & Path
Title = "Search Criteria Input"
Search = InputBox(Prompt, Title)
If Search = "" Then
GoTo Canceled
End If

'*** Confirm the procedure before continuing ***
' Prompt = "Are you sure that you want to search all the files in the folder:" & _
' vbCrLf & Path & " for " & """" & Search & """" & "?"
Title = "Confirm Procedure"
' MyResponse = MsgBox(Prompt, vbQuestion + vbYesNo, Title)
' If MyResponse = vbNo Then
' GoTo Canceled:
' End If

Application.DisplayAlerts = False
Application.ScreenUpdating = False

'*** Loop through all Word documents and search each of them for the specified criteria***
FileName = Dir(Path & "\*.xls", vbNormal)

Do Until FileName = ""
On Error Resume Next
Set WB = Workbooks.Open(FileName:=Path & "\" & FileName, ReadOnly:=True, Password:="DRJWasHere")
On Error GoTo 0
'Cannot Open Workbook
If WB Is Nothing Then
GoTo NextLoop:
End If
On Error Resume Next
Set WS = WB.Sheets("Data")
On Error GoTo 0
If WS Is Nothing Then
WB.Close False
GoTo NextLoop:
End If
Set MyWS = WB.Sheets("Data")
Test = False
'Check the values in the Text Boxes here
For i = 1 To MyWS.Shapes.Count
' Debug.Print MyWS.Shapes(i).Name
BoxText = MyWS.Shapes(i).TextFrame.Characters.Text
If Left(MyWS.Shapes(i).Name, 8) = "Text Box" Then
If InStr(1, BoxText, Search) > 0 Then
Test = True
GoTo NextLoop
End If
End If
Next

NextLoop:
If Test = False Then WB.Close False
Set WB = Nothing
Set WS = Nothing
FileName = Dir()
Debug.Print FileName
Loop
Canceled:

Set WB = Nothing
Set WS = Nothing
Set Cell = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

[/VBA]