Works PERFECTLY!
Thanks so much!

Stacy

"J.E. McGimpsey" wrote in message ...
One way:

Dim rng1 As Range
Set rng1 = Range("J1:K7")
Range("A1").Value = Evaluate("MAX((" & rng1.Columns(1).Address _
& "=""FR"")*(" & rng1.Columns(2).Address & "))")
Range("A2").Value = Evaluate("MAX((" & rng1.Columns(1).Address _
& "=""MA"")*(" & rng1.Columns(2).Address & "))")

Adjust rng1 to suit your table.

In article ,
(Stacy) wrote:

I have 2 columns, one is a version one is the date:
Based on the version, I want to find the max date.

Version Date
- - - - - - -
MA 10/01/03
IH 10/07/03
FR 09/05/03
MA 10/08/03
FR 10/07/03

So I want to be able to get the Max Date for FR - 10/07/03 and put it
in cell A1 and get the max Date for MA - 10/08/03 and put it in cell
A2.