No veo el DTPicker

que tal inserté un DTPicker en una hoja y mediante el código al final del
mensaje lo veía cada vez que me posicionaba en "e7". Funcionaba perfecto, el
problema es que ahora no me aparece el calendario cuando me posiciono ahí
solamente se ve "una pequeña parte" pero tampoco lo puedo seleccionar como
para agrandarlo o para q se vea normalmente. Cómo lo puedo solucionar???
existe alguna forma de eliminar dicho control e insertar uno nuevo, teniendo
en cuenta que no lo puedo ver. Solamente me muestra una muy pequeña zona
gris al lado de la celda pero tampoco me permite seleccionarla ni en Modo
Diseño. Muchas gracias


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With DTPicker1
.Visible = Not Intersect(Target, Range("e7")) Is Nothing
.Top = Target.Top - 1: .Left = Target.Left + Target.Width + 5
End With
End Sub
Private Sub DTPicker1_Change()
ActiveCell = CDate(DTPicker1)
End Sub