XLS how to build hidden calendar in a column?

Dear Friends,
I spent time in searching but did not find what I am looking for.
I have an excell, that has a column "date".
I would like to make the data entry easy so when the user selects a cell from that column I would like a calerndar to pop up.
Can you suggest solution please?
Erkamu.

Hello erkamu,

The attached workbook contains two modules: frmCalendar and CmdBtn_Class. These can be imported into your workbook. This calendar will save the date the user picks into the active cell.

This calendar also allows you to change to the date format. The date format uses the same format codes as in the Number Format dialog box.

The macro below needs to be added to the worksheet which has the "date" column. You will need to change the "date column", column "A", in the macro to match your column.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        If Target.Cells.Count > 1 Then Exit Sub
        
        If Intersect(Target, Columns("A:A").Cells) Is Nothing Then Exit Sub
        
        Application.EnableEvents = False
            frmCalendar.Show
        Application.EnableEvents = True

End Sub