G
Guest
I added a calendar control to a workbook and it doesn't close after I select
a date (I have to manually click the red "close" box).
What command should I add in which module so that the calendar will close
automatically upon clicking on a date?
Below are the three modules that operate the calendar:
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
End Sub
Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub
Sub_ShowIt()
UserForm1.Show
End Sub
Thanks!
a date (I have to manually click the red "close" box).
What command should I add in which module so that the calendar will close
automatically upon clicking on a date?
Below are the three modules that operate the calendar:
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
End Sub
Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub
Sub_ShowIt()
UserForm1.Show
End Sub
Thanks!