Type Mismatch Error with Index Match with Dates at VBA

[maabadi]

Hi.
I want to find first date at Column C between today and next 15 days. I try many methods but always see Type Mismatch Error
I declare as Variant
I convert Date to number with CLng or CDbl, but See error again?
What is Problem?

Sub IndexMatchDates()
Dim A As Long, P As Long
A = Application.Match(1, Application.Index((Range("C1:C21") > CLng(Date) - 1) * (Range("C1:C21") < CLng(Date) + 16), 0, 1), 0)

P = Application.Index(Range("C1:C21").Value2, Application.Match(1 _
, Application.Index((Range("C1:C21").Value2 > CDbl(Date) - 1) * (Range("C1:C21").Value2 < CDbl(Date) + 16), 0, 1), 0))
Debug.Print A
Debug.Print P
End Sub

 

[Fluff]

It's not the dates, it's the fact that VBA doesn't like doing array calculations like that.
Try

A = Evaluate("match(1,Index((C1:C21 > today() - 1 )*(C1:C21<today() + 16), 0, 1),0)")

 

[maabadi]

Thanks. That was Trick. Same as Always. Very good and appropriate answer.

 

[Fluff]

Glad to help & thanks for the feedback.