The following code does a great job at pulling unique values from a range and
making them part of a list box. However, it cannot do date. For some
reason, it pulls every single date value. I have checked, and the dates, in
long form, are all set at 12:00pm, so it is not a fact of the times being
different. Any ideas?

Set rng = .Range(.Cells(2, MyI), .Cells(2 ^ 16, MyI).End(xlUp))

For Each cCell In rng
If cCell < "" Then
If IsError(Application.Match(cCell, UniqueList, 0)) Then
ReDim Preserve UniqueList(0 To counter)
UniqueList(counter) = cCell
counter = counter + 1
End If
End If
Next cCell