I have a long list of dates (randomly given), and want to extract unique dates after 01.01.2000 from my list using a macro. So far I got this:
Sub unikeVerdier()
Dim d As Object, c As Variant, i As Long, lr As Long
Set d = CreateObject("Scripting.Dictionary")
lr = Cells(Rows.Count...