Application.SendKeys (">=") + calendar.value

[aprendiz]

buenas, tengo un filtro que me funciona muy bien, pero tengo una pega, quiero insertar la fecha mediente un calendario que tengo en un userform no tengo problemas para insertar la fecha, pero el filtro no funciona pues como que parece que se vuela esta linea:

Application.SendKeys (">=")[/CODE]

para llamar al calendario uso esto

[CODE]ElseIf Quien = 6 Then
Range("C8") = Calendar.Value
Range("C2") = Calendar.Value[/CODE]

este es el codigo del filro

[CODE]Private Sub Worksheet_Change(ByVal Target As Range)

Z = Hoja2.Range("I500000").End(xlUp).Row
If Not Intersect(Target, Range("C2:E2")) Is Nothing Then

Hoja2.Range("A5:I" & Z).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("C1:E2"), CopyToRange:=Range("A10:I10"), Unique:=False
End If

Range("E900000").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address(False, False) = "C2" Then
If Range("C2").Value = "" Then
Application.SendKeys (">=")
End If
End If

If Target.Address(False, False) = "D2" Then
If Range("D2").Value = "" Then
Application.SendKeys ("<=")
End If
End If

If Target.Address(False, False) = "C3" Then
Call Filtro_fechas("C2", ">")
End If

If Target.Address(False, False) = "D3" Then
Call Filtro_fechas("D2", "<")
End If[/CODE]

que me sugieren? se puede hacer?