помогите с сохранением и поиском
 

Есть шаблон в Excel. При его заполнении он сохраняется на диске D. нужно организовать поиск на диске.. т.е. проверить существует ли заданный файл, а в последующем открыть его или просто взять значение из ячейки и вывести в MsgBox...не открывая найденный файл... Я попыталась организовать это таким оброзом... вроде файл ищет, но не открывает его:Private Sub CommandButton3_Click() fail1 = InputBox("Введи Заказа:") papka = "D:\" fail = Dir(papka & " Заказ " & fail1 & ".xlsm") If Len(fail) = 0 Then MsgBox "Файл не найден" 'vbCritical: Exit Sub ' нет подходящего файла Set Ex = CreateObject("excel.application") Ex.Workbooks.Open Filename:=papka & " Заказ " & fail1 & ".xlsm" Ex.Application.Visible = True End Sub