Is that ob the val line or the Set rng line?

Have you declared these variables at all, if so to what?

--
HTH

Bob Phillips

"tjtjjtjt" wrote in message
...
Thanks, Bob. I'm getting a Compile Error when I test this code. It tells
me
that a function call on the left side of an equation must return a variant
or
an object.
--
tj


"Bob Phillips" wrote:

This works for me

iCol = fst.Column
Set rng = Range(fst.Address, Cells(Rows.Count, iCol).End(xlUp))
val = Evaluate("MATCH(MIN(IF(WEEKDAY(" & fst.Address & ")=1," &
fst.Address & "))," & fst.Address & "0)")
Set DMin = fst(val)


--
HTH

Bob Phillips

"tjtjjtjt" wrote in message
...
I am looking in a range of dates to find the minimum date. Once it is
found,
I will find what weekday it is. If it isn't a Sunday, I go to the
smallest
Sunday larger than the Minimum date to set the starting point for my
code.

I have everything working, except I can't seem to transfer the cell
with
the
minimum date to a range variable.

This was my latest attempt:
Set rng = Range(fst.Address & ":A" & Cells(Rows.Count,
"A").End(xlUp).Row)
Set dmin = rng.Find(Application.WorksheetFunction.Min(rng))

dmin is always set to Nothing.

What do I need to do to set dmin as the cell containing the minimum
date?

Also, since it is possible that "fst" may not be in column A, is there
a
more flexible way to set my "rng" variable?

Thanks,
--
tj