将弹出日历打开到当月

Question

我找到了按下“Shift，Ctrl，＆amp; C”按钮打开日历的代码，@ fontstuff。但是，它会打开到某个月，具体取决于月视图属性窗口中的值。 “思想是1753年1月1日”，＆amp; maxdate是“12/31/9999”，＆amp;当前值为“2016年2月2日 - 当月”。  我想避免的是每月进入属性窗口来改变月份。附件是用于运行弹出窗口的代码的副本。

    Private Sub CommandButton1_Click()
Unload Me
End Sub

    Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    On Error Resume Next
    ActiveCell.Value = DateClicked
    Unload Me
End Sub

    Private Sub UserForm_Initialize()
  If IsDate(ActiveCell.Value) Then
       Me.MonthView1.Value = ActiveCell.Value
    End If
 End Sub