求助...excel总是提示“找不到工程或库”

Private Sub Calendar1_Click()
End Sub
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Private Sub Command1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub
If Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
End Sub