Sub d()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For i = 1 To 99
d(Cells(i, 1).Value) = ""
Next i
If d.exists(CDate(Cells(1, "e"))) Then
MsgBox "yes"
End If
End Sub
Sub d()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For i = 1 To 99
d(Cells(i, 1).Value) = ""
Next i
If d.exists(CDate(Cells(1, "e"))) Then
MsgBox "yes"
End If
End Sub
Sub d()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For i = 1 To 99
d(Cells(i, 1).Value) = ""
Next
If d.exists(Cells(1, "e").Value) Then
MsgBox "yes"
End If
End Sub