Problema con fecha en textbox de userform

Muchas gracias por anticipado a los expertos.
Me estoy volviendo loco con un textbox de un userform en el que introduzco una fecha para que la copie a una celda de la hoja y la use como criterio en una macro que ejecuta un autofiltro para ver las filas que incluyen esa fecha. Este es el código del textbox:
Private Sub TextBox1_AfterUpdate()
ActiveSheet.Unprotect
Range("celFechaDe").Value = CDate(TextBox1)
ActiveSheet.Protect
End Sub
El problema es que cuando ejecuto el userform me da el siguiente error:
"Se ha producido el error '13' en tiempo de ejecución:
No coinciden los tipos"
a pesar de que copia la fecha correctamente a la celda y filtra las filas utilizando el criterio de la fecha introducida en el textbox.
Si acepto la opción "depurar" me sombrea en amarillo la línea 
Range("celFechaDe").Value = CDate(TextBox1)
OS agradeceré que me ayudéis con este error. Un Saludo.