Private Sub Worksheet_Activate()
MonthView21.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a2:c10")) Is Nothing Then
MonthView21.Visible = True
Else
MonthView21.Visible = False
End If
End Sub
Private Sub MonthView21_DateClick(ByVal DateClicked As Date)
ActiveCell.Value = MonthView21.Value
End Sub