Excel Macros? Possibility to do this?

Function Vlookup3DTest(LookupValue As Variant, LookupTable As Range, ReturnColumn As Long, DataSorted As Boolean, LastSheetName As String, _
    TestColumn As Long, TestValue As Variant) As Variant
Dim ws As Worksheet
Dim wb As Workbook
Dim rg As Range, cel As Range
Dim i As Long, FirstSheetIndex As Long, LastSheetIndex As Long
Dim addr As String, addrFirst As String
Dim v As Variant
Application.Volatile
Vlookup3DTest = "#N/A"
addr = LookupTable.Address
Set wb = LookupTable.Worksheet.Parent
Set ws = wb.Worksheets(LastSheetName)
FirstSheetIndex = LookupTable.Worksheet.Index
LastSheetIndex = ws.Index
For i = FirstSheetIndex To LastSheetIndex
    Set rg = wb.Worksheets(i).Range(addr)
    Set cel = Nothing
    On Error Resume Next
    Set cel = rg.Columns(1).Find(LookupValue, LookAt:=xlWhole, LookIn:=xlValues, MatchCase:=False)
    If Not cel Is Nothing Then addrFirst = cel.Address
    On Error GoTo 0
    If Not cel Is Nothing Then
        Do
            v = cel.Cells(1, TestColumn).Value
            If v = TestValue Then
                Vlookup3DTest = cel.Cells(1, ReturnColumn).Value
                Exit Function
            End If
            Set cel = rg.Find(LookupValue, After:=cel, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
            If cel.Address = addrFirst Then Exit Do
        Loop
    End If
Next
End Function

Select all Open in new window