Function VLOOKUP3(SearchColumnNum As Integer, SearchValue As Variant, _
                                        N As Integer, ResultColumnNum As Integer)
    Dim i As Integer
    Dim iCount As Integer
    Dim Table As Range
    Set Table = Workbooks("Таблица.xls").Worksheets("Лист1").Range("A1:B5")
    For i =  1  To Table.Rows.Count
            If Table.Cells(i, SearchColumnNum) = SearchValue Then
                iCount = iCount +  1 
            End If
            If iCount = N Then
                VLOOKUP3 = Table.Cells(i, ResultColumnNum)
                Exit For
            End If
        Next i
End Function

Workbooks("C:\Таблица.xls").Worksheets("Лист1").Range("A1:B5")

Function VLOOKUP3(SearchColumnNum As Integer, SearchValue As Variant, _
                                        N As Integer, ResultColumnNum As Integer)
    Dim i As Integer
    Dim iCount As Integer
    Dim table As Range
    table = Range("D1")
    For i =  1  To table.Rows.Count
            If table.Cells(i, SearchColumnNum) = SearchValue Then
                iCount = iCount +  1 
            End If
            If iCount = N Then
                VLOOKUP3 = table.Cells(i, ResultColumnNum)
                Exit For
            End If
        Next i
End Function

='C:\[Таблица.xls]Лист1'!$A$ 1 :$B$ 5 

Function func(ByVal значение As String, ByVal дата1 As String, ByVal дата2 As String)
   Dim sdf As Range
   Dim sdf1 As String
   Dim sdf2 As String
   Dim sdf3 As String
   Dim sdf4 As String
   sdf1 = "'C:\Таблицы\["
   sdf2 = "C "
   sdf3 = " по "
   sdf4 = ".xls]Лист1'!C4:X450"
   sdf = sdf1 + sdf2 + дата1 + sdf3 + дата2 + sdf4
   func = WorksheetFunction.VLookup(значение, sdf,  2 , False)
End Function