运行时错误424 要求对象

其中：Calendar1.Visible = True 显示黄色
代码如下：(代码有删减,因为太长超字数了）
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Target.Column = 4 Or Target.Column = 15 Or Target.Column = 17 Or Target.Column = 19 Or Target.Column = 21 Or Target.Column = 23 Or Target.Column = 25 Or
'Target.Column = 27 Or Target.Column = 29 Or Target.Column = 32 Or Target.Column = 34 Or Target.Column = 36 Then
If Target.Row < 3 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
Dim ccMode As XlCutCopyMode
ccMode = Application.CutCopyMode
If ccMode = 0 Then
Set RngCutcopy = Nothing
Else
Set RngCutcopy = GetCutCopyRange
End If
Dim bInrange As Boolean
On Error Resume Next
bInrange = WorksheetFunction.Match(Target.Column, Array(4, 15, 17, 19, 21, 23, 25, 27, 29, 32, 34, 36), 0)
On Error GoTo 0
If bInrange Then
Calendar1.Visible = True
Calendar1.Top = Range("a1", ActiveCell).Height
Calendar1.Left = Range("a1", ActiveCell).Width + 10
Else
Calendar1.Visible = False
End If
If Not RngCutcopy Is Nothing Then
If ccMode = xlCopy Then
RngCutcopy.Copy
ElseIf ccMode = xlCut Then
RngCutcopy.Cut
End If
End If
End Sub

我本来用2007版本的可以运行，但一用到2010年版的就运行错误了

UsedRange是Sheet的一个属性，因此要指定一个对象。
如ActiveSheet.UsedRange
或 worksheets(sheet名).UsedRange

在窗体及模块的顶部都添加 option explicit '强制声明所有变量 然后再调试或是编译的时候，如果有没有声明的变量或是错误拼写造成的变量或对象名称都会有错误提示。