Had some nice code off a magazine to make the calendar

The code only allows you to do one date at a time, it would be nice if
you could just click on a cell and then click a date as often as you
want. Quicker to do Ctrl and Colon and then edit the dates as it is.

Here is the code
this is the  forms
-----------------------------------------------------------
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
End Sub

Private Sub userform1_activate()
Me.Calendar1.Value = Date
End Sub
----------------------------------------------
then to make it show

Sub ShowCalendar()
Calendar.Show
End Sub
---------------------

thanks