Calendar To Allow The User To Select A Date And Automatically Put That In A Specific Cell

I have created a user form using the addins that come with excel to create a calendar that will allow the user to select a date and automatically put that in a specific cell. My system is office 2000.

The code is as follows:

Private Sub OK_Click()

Dim i As Integer
Dim myCell As Range

i = 0

For Each myCell In Selection
myCell.Value = Calendar1.Value + i
i = i + 1
Next myCell

Unload Me
End Sub

Now, I gave it to my boss who has xp, and I get the following VB error when she chooses a date and clicks on the ok button:

Method 'Value' of object 'ICalendar' Failed