Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Private Sub MonthView1_DateDblClick(ByVal DateDblClicked As Date)
TextBox1.Text = MonthView1.Value
MonthView1.Visible = False
End Sub
Private Sub TextBox1_Enter()
MonthView1.Move TextBox1.Left, TextBox1.Top + TextBox1.Height
MonthView1.Visible = True
End Sub
Private Sub UserForm_Activate()
MonthView1.Visible = False
End Sub