Get dates reversed

Hello everybody
I have the following code that extract unique values and sort these values

Please Login or Register  to view this content.

When I use this code to extract unique dates from the range("B2:B" & LastRow) I found that day and month reversed
For example
1 Dec. , 2014 became 12 Jan. , 2014
s there a way to correct this undesired output?
I tried to put CDate in different position but I failed

Try this:-
Change date format in code to suit !!

Please Login or Register  to view this content.

Regards Mick

Mr. Mick
the same problem is still there

Pity it worked for me!!!
Can you send your file or example of it.

I had the same issue on a userform where it would reverse all dates up to 12/xx/xxxx and anything >12, it formatted as text and lost the actual value.

I originally worked around it similar to MickG's solution (which incidentally has also worked for me) by keeping as a number format whilst processing the data:

R.NumberFormat = "00000"

and then setting the format of the particular column to "dd-mmm-yy" using right click and format cells.

From my observations (and I'm always wrong according to the missus......) Excel doesn't seem to care what formatting you choose at any point of the processing of these fields, however when it comes to the final 'write' process (usually the copy/paste), if the format isn't specified at that point, then excel does what it pleases which is to use it's native US format.

Mr. Mick
Your code now works perfect. I didn't notice all the modifications on the code..
It now works well
Thanks a lot for this great help
And thanks a lot Mr. BuZZarD73

You're welcome