pop up calender vba

[Hadouken]

Okay so its the vfirst time ive tried using developer tools but its been to no avail. I created a calender using the following code

Private Sub Calendar1_Click()
ActiveCell.Value = Calender1.Value
Unload Me
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
If IsDate(ActiveCell.Value) Then
Calender1.Value = DateValue(ActiveCell.Value)
Else
Calender1.Value = Date
End If
End Sub


However "run time error 424 missing object" pops up when I try to run the macro. Is my code complete. What am I doing wrong

 

[VHS01]

Spelling is one thing error 424 indicates
In this case where you have "Calender1" it needs to be "Calendar1"
Gary

Okay so its the vfirst time ive tried using developer tools but its been to no avail. I created a calender using the following code

Private Sub Calendar1_Click()
ActiveCell.Value = Calender1.Value
Unload Me
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
If IsDate(ActiveCell.Value) Then
Calender1.Value = DateValue(ActiveCell.Value)
Else
Calender1.Value = Date
End If
End Sub


However "run time error 424 missing object" pops up when I try to run the macro. Is my code complete. What am I doing wrong

 

[Hadouken]

Thanks. great stuff!