Month View in Userform - Close automatically - excel

Question

I want to click in a certain cell and for the Userform with the Monthview to appear , then once I have selected a date and it is inserted into the cell, i want the userform to close automatically
This code is in Work Sheet
Private Sub worksheet_selectionchange(ByVal target As Range)
If Not Application.Intersect(Range("l14"), target) Is Nothing Then
UserForm1.Show
End If
End Sub
This code is in the UserForm - MonthView1
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
ActiveCell.Value = DateClicked
End Sub
Any assistance would be Grateful

Answer 1

UserForm1.Show is toxic; you're essentially storing state in global scope, and that will inevitably cause issues down the line. Make a new instance of the form instead:
If Not Application.Intersect(Range("l14"), target) Is Nothing Then
With New UserForm1
.Show
End With
End If
Now, a form/dialog exists to collect user input, not to consume that input and change cell values. What happens to that input should be up to the code that's using that form, not up to the form itself. Expose the selected Date value with a property.
The user can do 2 things: either they select a date and you have a SelectedDate, or they clicked that [X] button and dismissed the form: You need to be able to tell what the user did. Handle QueryClose for that, and expose an IsCancelled property.
Selecting a date, or cancelling out, should hide the form, not destroy it.
Option Explicit
Private selectedValue As Date
Private cancelled As Boolean
Public Property Get IsCancelled() As Boolean
IsCancelled = cancelled
End Property
Public Property Get SelectedDate() As Date
SelectedDate = selectedValue
End Property
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
selectedValue = DateClicked
Me.Hide
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = VbQueryClose.vbFormControlMenu Then
Cancel = True
cancelled = True
Me.Hide
End If
End Sub
And now you have a date picker form that you can reuse whenever you need it, because it doesn't know or care about what happens to the value that was selected:
If Not Application.Intersect(Range("l14"), target) Is Nothing Then
With New UserForm1 ' todo: rename form to "DatePickerDialog" or something
.Show
If Not .IsCancelled Then
target.Value = .SelectedDate
End If
End With
End If

Answer 2

You could add unload me in that sub:
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
ActiveCell.Value = DateClicked
Unload me
End Sub