In all attempts to assign 'i' the value in the code below, a type mismatch error occurs. If I change the match type to '0', it works as expected. If I resort the range wrng2 to be ascending values and use a match type of either 0 or 1, it works as expected. Only when using a match type of -1 with a descending range of values does the error occur. Help! (wrng2 is depicted in the attachment below)

 
Sub tyu()Dim i As Integer
Dim d As Date
    d = #8/4/2019#
    i = Application.Match(d, Range("wrng2").Value, -1)
    d = Range("wrng2").Cells(7, 1).Value
    i = Application.Match(d, Range("wrng2").Value, -1)
     
    i = WorksheetFunction.IfNa( _
     Application.Match(d, Range("wrng2").Value, -1), _
     0)
     
     d = WorksheetFunction.Index(Range("wrng2"), 6)
End Sub
Sub test()
  Dim i As Variant, d As Date
  d = #8/24/2019#   'mm/dd/yyy
  'with Int(CDbl(d))  We get the excel number for a date
  i = Application.Match(Int(CDbl(d)), Range("wrng2"), -1)
  MsgBox i

End Sub


Capture4.JPG