Error en macro.

Tengo una macro montada en una hoja cuyo contenido es:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With desde
.Visible = Not Intersect(Target, Range("B5:B5")) Is Nothing
.Top = Target.Top - 1: .Left = Target.Left
.Value = Date - (Weekday(Date, 2) - 1)
End With
End Sub
Private Sub desde_Change()
ActiveCell = CDate(desde)
End Sub
Cuando abro el archivo se genera el siguiente error:
Se ha producido el error '35788' en tiempo de ejecucion:
Error en una llamada a los controles Date and Timer Picker de Windows.
A hacer clic en el boton depurar el editor de Visual Basic se detiene en la linea:
.Value = Date - (Weekday(Date, 2) - 1)
Y no entiendo porque el error; alguien me podria decir que esta mal...

Saludos amigos;

Tengo una macro montada en una hoja cuyo contenido es:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With desde
.Visible = Not Intersect(Target, Range("B5:B5")) Is Nothing
.Top = Target.Top - 1: .Left = Target.Left
.Value = Date - (Weekday(Date, 2) - 1)
End With
End Sub
Private Sub desde_Change()
ActiveCell = CDate(desde)
End Sub

Cuando abro el archivo se genera el siguiente error:
Se ha producido el error '35788' en tiempo de ejecución:
Error en una llamada a los controles Date and Timer Picker de Windows.

A hacer clic en el botón depurar el editor de Visual Basic se detiene en la
línea:
.Value = Date - (Weekday(Date, 2) - 1)

Y no entiendo porque el error; alguien me podría decir que está mal...

Muchisimas gracias de antemano.