I am trying to allow a user to select a date from a Calendar Control, then
based upon the user's selection, move to a specific Sheet

Here is my code so far

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "mm/dd/yyyy"
If ActiveCell.Value = "04/12/2008" Then
Sheets("Week 2").Select
End If
Unload Me
End Sub

When the user selects 04/12/2008, the active cell changes, but the cursor
stays on this cell and the user does not go to Sheet, "Week 2".

Any ideas? Suggestions?

thanks