MsgBox ActiveSheet.Evaluate("MAX(IF(A1:A20=""Q1"",ROW(A1: A20)))")



--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"comparini3000" wrote in message
...
Mr. Phillips, thank you for your quick reply, the formula worked
wonderfully.
However, I was looking for a VBA solution. How would I do that?

"Bob Phillips" wrote:

Simple enough

=MAX(IF(A1:A20="Q1",ROW(A1:A20)))

which is an array formula, it should be committed with Ctrl-Shift-Enter,
not
just Enter.

To get the first row, change MAX to MIN

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)