IF Then Else and List Box

[Geoff Varner]

Good Monday XL world.

I am trying to write code to populate a list box with a start date using the dblclick() command from a calendar. I then want to use the same calendar to populate a stop date in a different list box. Here is what I have tried but with no success.

Private Sub Calendar1_DblClick()
If startdate.Value = "" Then
startdate.AddItem Calendar1.Value
Else: stopdate.AddItem Calendar1.Value
End If
End Sub

What am I doing wrong?

Thanks,