1. To know how to insert the Calendar Control in worksheet, read the below topic.
2. After inserting, how to get the value of selected date into a cell. Press Alt+F11 and insert these codes.
Private Sub Calendar1_Click()
‘Thisworkbook.sheets(SheetIndex or “SheetName”).cells(Row#, Column#) = ValuesToEnterIntoCell
ThisWorkbook.Sheets(“Sheet1”).Cells(1, 1) = Calendar1.Value