Fecha 24-10-2014 en celda desde un DTPicker y no numero 41936

[JoaoM]

¿Como le hago para insertar formato fecha dd-mm-yyyy en una celda desde un DTPicker?

Esta es parte dela macro que inserta via CommandBotton

Código:

Application.ScreenUpdating = False
Range("A" & Fila).Activate
If Alta = True Then ActiveCell = txt_Nuevo
ActiveCell.Offset(0, 1) = txt_Edad
ActiveCell.Offset(0, 2) = txt_Direccion
ActiveCell.Offset(0, 3) = txt_Población
ActiveCell.Offset(0, 4) = txt_Provincia
ActiveCell.Offset(0, 5) = txt_Telefono
ActiveCell.Offset(0, 6) = txt_Email
ActiveCell.Offset(0, 7) = DTPicker1 'ESTE ES EL DTPicker 
ActiveCell.Offset(0, 8) = cbo_Trabajo
ActiveCell.Offset(0, 9) = txt_Observa
ActiveCell.Offset(0, 10) = ArchivoIMG
Application.ScreenUpdating = True

Sin que tenga que dar formato Fecha a la columna de titulo Fecha, insertar la fecha del DTPicker en un formulario y que en la celda se vea 24-10-2014 y no numero 41936