Lopslag/vopslag i VBA

kan du bruge dette??
http://www.excel-center.com/mailing/032498h.htm

Nej for den funktion bruger Vlookup...

men jeg fandt på samme udmærkede side følgende som jeg kunne bruge:

Function sRangeReference( _
    varA, _
    varB, _
    rng As Range)
    Dim rngAct As Range
    For Each rngAct In rng.Columns(1).Cells
        If rngAct.Value = varA Then
            If varB <= rngAct.Offset(0, 1).Value Then
                sRangeReference = rngAct.Offset(0, 2).Value
                Exit Function
            End If
        End If
    Next rngAct
End Function