You can either call the Vlookup function:
dim vAnsa as variant
vAnsa=application.Vlookup(lookupval,oLookupRange,k,True)
(use a variant because it can return an error value like #N/A)
or write your own (binary search for sorted, sequential array search for
unsorted)
Charles
______________________
Decision Models
FastExcel 2.1 now available
www.DecisionModels.com