急！！已在EXCEL2007里设置了一个日历控件，但是控件不跟着单元格走，老是停留在一个地方，求解！

Question

已经在EXCEL2007里设置了一个日历控件，但是控件不跟着单元格走，老是停留在一个地方，求肿么让选择单元格时日历窗口也跟着在旁边，而不是停留原地。
注：已设置格式为大小固定，位置随单元格而变。附控件代码：
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
End Sub

Answer 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
with Me.Calendar1
.Visible = True

.Top = Target.Top

.Left = Target.Left

end with
Else
Me.Calendar1.Visible = False
End If
End Sub

Answer 2

If Target.Column = 1
.Top = Target.Top
.Left = Target.Left
Then