Connecting date selected on a calendar to a specific cell

Okay. I adjusted the code accordingly. However, the date only populates to one specific cell. So, I made some additional adjustments with some code to do a search into the last USED cell of a particular column. Then I applied the new values to the next OPEN row.

See below...

Private Sub cmdOK_Click()
Dim NR As Long

'transfer values to database
    With ActiveWorkbook.Sheets("UNIV100")
        NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1
        .Range("E" & NR).Value = frmCalendar.Value
    End With

'Reset values
    frmCalendar.Value = ""
End Sub

Thank you very much for your help, Leith. You pointed me in the right direction.

-Jared