方法和数据成员未找到

我在sheet1表中输入下列代码,一运行就说"方法和数据成员未找到"，然后privat sub worksheet语句为黄色，指针停在这里。calendar1为黑色选中状态。不知道为什么.请高手帮忙.非常感谢.
Private Sub Calendar1_Click()

          ActiveCell.Value = Calendar1.Value
          Me.Calendar1.Visible = False
      End Sub
   
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      
          If (Target.Column = 2 Or Target.Column = 4) And Target.Row >= 7 And Target.Row <= 14 Then
            'Me.Calendar1.Visible = True
           Me.Calendar1.Top = Target.Top + 23
            Me.Calendar1.Left = Target.Left
           Me.Calendar1.Visible = True
          Else
            Me.Calendar1.Visible = False
          End If
     End Sub

1.需要有选中的单元格，才执行
2.去掉ME，改用ACTIVESHEET或SHEET1,SHEET2,SHEET3....

等啊等！！！

换成ACTIVESHEET.提示"对象不支持该属性和方法",换成SHEET1还是提示"方法和数据成员未找到".到底是什么原因.啊啊

可能没有日历控件。