Private Sub ComboBox1_Click()
p = Application.Match(CDbl(CDate(Me.ComboBox1)), [a:a], 0)
If Not IsError(p) Then [a1].Offset(p - 1).Select
End Sub
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
For Each c In [A1:A1000]
If c <> "" Then Me.ComboBox1.AddItem c
Next
End Sub