Spencer,

For example:

Dim ReturnRange As Range
Dim MatchValue As Variant
Dim LookupRange As Range

Set ReturnRange = Range("A1:A10")
MatchValue = 17
Set LookupRange = Range("B1:B10")

MsgBox Application.Index(ReturnRange, _
Application.Match(MatchValue, LookupRange, 0)).Value

HTH,
Bernie
MS Excel MVP


"Spencer Hutton" wrote in message
...
Does anyone know the code to emulate this function using a custom VBA
function:

=INDEX(ReturnRange(MATCH(MatchValue,LookupRange,0) )

TIA.