CDate not working

I have the following code to populate a ComboBox in User form with a unique list of dates, where the CDate function does not seem to work. I have also used the CLng function but that does not seem to work either. The routine works fine if I have a list of Names using the CStr function.

Can someone offer me a solution please

Private Sub UserForm_Initialize()
Dim Found As Long, i As Long
Dim cel As Range

'Create date List
MyList = "valEndDate" ' This is a list of Dates

Set DataList = Range(MyList)
ReDim FArray(DataList.Cells.Count)
i = -1

For Each cel In DataList
On Error Resume Next
Found = Application.WorksheetFunction.Match(CDate(cel), FArray, 0)
If Found > 0 Then GoTo Exists
i = i + 1
FArray(i) = cel
Exists:
Found = 0
Next
ReDim Preserve FArray(i)
Call BubbleSort(FArray)
ComboBox1.ListRows = i + 1
ComboBox1.List() = FArray
End Sub

Many thanks for assistance/sglxl

I tried that but it didn't work.

Can you tell me how to use a dictionary so that I can give it atry. This thing is driving me nuts.

Thanks

I have never used dictionary object before and seems good idea. However I am getting a couple of problems:

- list of dates are coming up in US format whereas the worksheet is formatted in UK format - dd-mmm-yy
- I am also getting at least one element from a different column not related to "valEndDates"
- Finally I do not know why this is happening but the screen also locks and I have no access to the individual cells but can save the workbook, close it and generally use the Ribbon - once wkbk closed and reopened access is available again

I am using Window 7 with Office 2010

OK Noted,

JosephP thanks very much I have found all of the problems they were all my mistakes and have corrected them.

Everything works fine and thanks very much for all your assistance