Click On Cell Makes Calendar Pop Up

I have read through numerous posts, but cannot get one thing to work. I am using Excel 2003, and am trying to get a calendar to pop up, to select a date, and then return that date to Cell B2.

I was successful at making the calendar pop up by the following methods:
1. Added a button to the toolbar, and assigned the Calendar Macro to it.
2. Using VB, added a sub-menu item to the right-click (context) menu, using the code below.


Private Sub Workbook_Open()
Application.OnKey "+^{C}", "Module1.Macro2"
End Sub
However, my goal is to make the calendar appear when I click on cell B2.
I tried using the following code, but when I click on B2 nothing happens.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$2" Then UserForm1.Show
End Sub
I also tried:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
With Worksheets(ActiveCell.Worksheet.Name)
If ActiveCell.Column = 2 Then
If ActiveCell.Row = 1 Then
UserForm1.Show
End If
End If
End With
End Sub