On Tuesday, November 4, 2014 4:59:59 AM UTC-8, Claus Busch wrote:
Hi Howard,

Am Tue, 4 Nov 2014 04:14:39 -0800 (PST) schrieb L. Howard:

Set OneRng = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
i = Application.WorksheetFunction.Lookup(2, 1 / (OneRng = "abc"), Row(OneRng))

try:
Sub SomeRangeA()
Dim lRow As Long
Dim i As Long

lRow = Cells(Rows.Count, "A").End(xlUp).Row
i = Evaluate("=Lookup(2,1/(A2:A" & lRow & " = ""abc""), Row(A2:A" & lRow & "))")
End Sub


Regards
Claus B.
--


Thanks Claus, works well.

Is there a short answer as to why Application.WorksheetFunction.... does not work?

Howard