Что то я не понял, в столбце F номер телефона, о каких 50 искомых переменных вы говорите? Могу предположить, что вам за раз необходимо найти большое количество телефонных номеров и вывести по ним данные. Тут вам необходимо таблица иСходных данных и формулой ВПР или прочими формулами Отыскать нужные вам данные и все это сделать на втором листе.  
 
Вот так например?

Ну тогда макросовского строчить надо,  
Задача не сложная, массив искомых значений, Файлы с данными в одной папке, перебор всех файлов и листов, вывод результатов на лист

Ой, в 14.51 это я была. Почему-то не залогилось...

А что делать если были найдены совпадения?  
Скопировать данные, написать сообщение,удалить строку с данными, форматнуть диск C, или что то другое?

Диана, не побоюсь этого слова - Артемис, а зачем тогда искать, если ничего делать не нужно? Смысл поиска каков?

Я уже написала. Смысл поиска - не допустить повтора номеров в последующих файлах. Список искомых номеров выдает программа, у нее неотключаемая функция - захватывать в отчете последние числа предыдущего месяца. Корень зла, собствено. Т.е. у меня имеется ексель файл за апрель, и его номера я прогоняю через файлы за все предыдущие месяца. Не знаю как точнее сформулировать.

{quote}{login=Диана-Артемис}{date=21.05.2012 03:07}{thema=}{post}Я уже написала. {/post}{/quote}Не написали. Переформулирую СВОЙ вопрос: что делать с найденными номерами? Ведь можно выгрузить их на лист, как сделал Николай, можно после каждого найденного выводить сообщение - "Такой номер найден"...

Диана-Артемис вы поймите, если мы переберем все книги и листы и не зафиксируем совпадения, то мы никогда о них не узнаем. В каком виде вы хотите, чтобы данные были зафиксированы. Думаю все таки в вашем случае было бы удобно выделять номера в исходном файле красным цветом, хочу услышать ваше мнение!!!

Тогда запакуйте в архив два файла за предыдущий месяц и исходный файл который нужно проверить, не требую оригиналов, но главное. что бы на правду были похожи

Вставьте в модуль файла с телефонами код и запустите при активном листе с телефонами в E (кстати, в любом файле):  
 
 
Option Explicit  
 
 
 
Sub tt()  
   Dim sh As Worksheet  
   Dim iCell As Range  
   Dim iSearchText$, iAddress$  
   Dim a, i&, af, f, wb As Workbook, s$  
   a = Range([E1], Range("E" & Rows.Count).End(xlUp)).Value
   ReDim b(1 To UBound(a), 1 To 1)  
 
   With Application.FileDialog(1)  
       .AllowMultiSelect = True  
       .InitialFileName = ThisWorkbook.Path & Application.PathSeparator & "*.xls"  
       .Title = "Выбрать файлы для анализа"  
       If .Show = False Then Exit Sub  
       Set af = .SelectedItems  
   End With  
 
   For Each f In af  
       Set wb = GetObject(f)  
       For i = 1 To UBound(a)  
           iSearchText$ = a(i, 1)  
           s = ""  
           For Each sh In wb.Worksheets  
               Set iCell = sh.UsedRange.Find _  
                           (What:=iSearchText$, LookIn:=xlValues, LookAt:=xlWhole)  
 
               If Not iCell Is Nothing Then  
                   iAddress$ = iCell.Address  
                   Do  
                       Set iCell = sh.UsedRange.FindNext(After:=iCell)  
                       s = s & wb.Name & " - " & sh.Name & " - " & iCell.Address & "|"  
                   Loop While Not iCell Is Nothing And iCell.Address <> iAddress$  
               End If  
           Next  
           If Len(s) Then b(i, 1) = Left(s, Len(s) - 1)  
 
       Next  
       wb.Close 0  
   Next  
   [f1].Resize(UBound(b), 1) = b
End Sub  
 
 
Информация будет рядом с телефонами. Если файлов/листов для поиска много, то моет быть нужно вывод переделать.  
Но в Вашем примере совпадений нет - мне пришлось один номер закопипастить по листам для теста! :)