Visual Basic - formato Date

Hola, estoy haciendo una macro para Excel de VB y necesito canviar unos rangos de fechas que estan en formato personalzado a formato fecha. Lo he intentado cogiendo los valores en un string, converirlos a Date y reescribirlos, pero no da resultado.

Alguien sabe como puedo hacerlo?

Gracias


Les dejo el código de la sub, aunque ya he dicho que no funciona :S

------------------------------------------------------------------------------------------
Sub dataformat(ByVal filaultima As Integer)

Dim data As Date
Dim con As String
Dim c As Integer

For c = 2 To filaultima
Range("AK" & c).Select
con = Selection.Value
data = CDate(con)
Selection.ClearContents
Selection.Value = data

Next

End Sub
---------------------------------------------------------------------------------------------------