I have created a calendar (frmCalendar) as shown below coding:
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Unload Me
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

And I have the problem when I try to use this calendar to enter the date in
a text box (StartDate) of another Userform:

Private Sub StartDate_Change()

ActiveCell.Value = frmCalendar.Show

End Sub

The calendar pop up but when I click at the selected date, there is no input
into the text box.