Calendar control
 

I have a command button that opens the calendar. It is for reference only.
I would like to have it close when ever I select a cell. I don't want to
have to click the close button

Calendar control
 

Is that code what you need?

Private Sub CommandButton1_Click()
' You show calender
UserForm1.Show vbModeless
End Sub

' Put that code you Worksheet change -module
Private Sub Worksheet_SelectionChange(ByVal rng As Range)
Unload UserForm1
End Sub

OR

' Put that code you Workbook Sheet Chenge -module
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Unload UserForm1
End Sub


Regards Kari J Keinonen