CONVERTIR CELDAS TIPO TEXTO A TIPO FECHA

HOLA A TODOS
ESTOY TRABAJANDO CON UNOS ARCHIVOS (LISTADOS DE PERSONAS) EN EL CUAL HAY

COLUMNA FECHA, LO QUE PASA ES QUE ESTA COLUMNA ME ESTA LLEGANDO EN TIPO

Y NO SE DEJA CONVETIR A TIPO TEXTO DE UNA MANERA AUTOMATICA, HAY QUE IR

POR CELDA ACTIVARLA Y VOLVER A SALIR PARA QUE QUE CON TIPO FECHA.
TENGO UNA MACRO QUE CONVIERTE TIPO TEXTO A TIPO NUMERICO PERO NO ME SIRVE
PARA FECHA.

Sub celdasnoreconocidas()
If Range("D1").Value = Empty Then
Range("D1").Select
Else
Range("D1").Select
For Each c In Selection.Cells
c.Value = UCase$(c.Value)

Next c

If Range("D1").Value <> Empty And Range("D2").Value <> Empty Then
Range("D1").Select
Range(Selection, Selection.End(xlDown)).Select
For Each c In Selection.Cells
c.Value = UCase$(c.Value)

Next c

End If
End If
End Sub

ESPERO QUE ME PUEDAN AYUDAR ES DE GRAN URGENCIA
GRACIAS A TODOS