I added a calendar control to a workbook and it doesn't close after I select
a date (I have to manually click the red "close" box).
What command should I add in which module so that the calendar will close
automatically upon clicking on a date?
Below are the three modules that operate the calendar:

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
End Sub

Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub

Sub_ShowIt()
UserForm1.Show
End Sub

Thanks!