Excel Date Picker Not Selecting Current Date

[AlexaS]

Hi y'all!

So I have the following code:

Private Sub Calendar1_Change()
    ActiveCell.Value = Calendar1.Value
    ActiveCell.NumberFormat = "mm/dd/yyyy"
    ActiveCell.Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("C2:D1048576"), Target) Is Nothing Then
        Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
        Calendar1.Top = Target.Top + Target.Height
        Calendar1.Visible = True
        ' select Today's date in the Calendar
        Calendar1.Value = Date
    ElseIf Calendar1.Visible Then Calendar1.Visible = False
    End If
End Sub

And I created the ActiveX control, changed the name, etc. That all works just fine.

The problem I'm having is that I am unable to select the current date on the first try. If I select another date and then change it to the current date, it works, but if I just select the current date, it leaves the cell blank.

I've tried changing the Caledar1 event from Change to Click (but that leaves the cell blank, no matter what date I select) and from Change to Exit, but neither worked. I've also tried changing the Worksheet_Selection event from Change to Click, but then the calendar stays in one location (the one I was in before I made the change) and it doesn't hide.

Is there anyway to correct this? The end user doesn't like the workaround (selecting another date and then the current date) and would like a fix if possible (and I'd like one so he stops snipping at me).

Thanks in advance for any help