Application.Lookup(11, vrEITab) Thanks, Jay
G Gary''s Student Jan 13, 2009 #2 It runs pretty well in context: Sub zeroo() Dim vrEITab As Range Set vrEITab = Range("A1:A10") Range("A5").Value = 11 x = Application.WorksheetFunction.Lookup(11, vrEITab) MsgBox (x) End Sub will display the desired 11
It runs pretty well in context: Sub zeroo() Dim vrEITab As Range Set vrEITab = Range("A1:A10") Range("A5").Value = 11 x = Application.WorksheetFunction.Lookup(11, vrEITab) MsgBox (x) End Sub will display the desired 11