Assuming the calendar is Calendar1, put the following code:
- in the userform if the calendar is in a userform
- in the sheet code module if the calendar is directly on the sheet

Private Sub Calendar1_AfterUpdate()
''' close code here
''' 1. run close button: CmdClose_Click
''' 2. or close the Userform if the calendar is in userform: Me.Hide
End Sub
--
Regards,
Sébastien
<http://www.ondemandanalysis.com


"Exceller" wrote:

I have a Calendar pop up when a cell is chosen. How can I get the Calendar
to disappear after a date is chosen (instead of having to take the extra step
of clicking the Close button)?
Thanks.