Public Function openfilepath(dt As MsoFileDialogType, titles$, Pathname$, Mult As Boolean, Res%) As String
With Application.FileDialog(dt)
   .Title = titles '"Выберите файл"
   .InitialFileName = Pathname ' путь
   If dt = 1 Then
   .AllowMultiSelect = Mult
   .Filters.Clear
    .Filters.Add "MS Excel", "*.xls,*.xlsx", 1
    End If
    Res = .Show
    If Res = 0 Then Exit Function
End With
' берем только один прайс!
openfilepath = Trim(Application.FileDialog(1).SelectedItems.Item(1))
End Function

Private Sub ProvFunction(IndeksorName As Variant)
' функция загрузки второго листа эксель
' откроем файл Эксель
Dim PathOfName$, Myresult%, Prov
Myresult = 1
PathOfName = openfilepath(msoFileDialogOpen, "Выберите дополнительный файл", myObject.Pathes, False, Myresult)
If Myresult = 0 Then MsgBox "Файл не выбран!": Exit Sub
Set objExel = New Excel.Application
Set objbook = objExel.Workbooks.Open(PathOfName)
If IsNumeric(IndeksorName) Then Prov = CLng(IndeksorName) Else Prov = CStr(IndeksorName)
Set ListExcel2 = objbook.Worksheets(Prov)
' открыли наш лист экселя - теперь будем искать в нем данные


End Sub


Private Function pfcPoiskAnotherfile(str$, ByVal StolbPoisk&, ByVal StolbResult&, Listname As Excel.Worksheet) As String
' str-это данные которые мы будем искать в другом файле
' StolbPoisk-столбец в котором будем искать по образцу str$
 ' StolbResult  столбец из которого вытащим результат
' Myvalue-собственно результат
' Listname-лист в файле в котором ищем то что нам надо
Dim listrow As Range, myvalue$

  Set listrow = Listname.Columns(StolbPoisk).Find(str, , xlValues, xlWhole, xlByColumns, xlNext)
If listrow.row > 0 Then myvalue = Listname.Cells(listrow.row, StolbResult) Else myvalue = vbNullString
pfcPoiskAnotherfile = myvalue
End Function