Calendar Control - Switch to Sheet X
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
|