Connecting date selected on a calendar to a specific cell

Hello ,

Here is an example of how to transfer the Calendar selection to cell A1 on the ActiveSheet. You may need to change the name of the command button and the range to match what you are using.

Private Sub CommandButton1_Click()
    Range("A1").Value  = Calendar1.Value
End Sub