From neil.tappsville.com
Jump to navigationJump to search

Overcome Vlookup key limit

Open excel, alt-f11, this workbook - insert module

Function [[My Vlookup]](Lval As Range, c As Range, oset As Long) As Variant
Dim cl As Range
For Each cl In c.Columns(1).Cells
: If UCase(Lval) = UCase(cl) Then
: [[My Vlookup]] = cl.Offset(, oset - 1)
: Exit Function
: End If
: Next
End Function