popup calendar from macro

[cmccabe]

Is there a way in excel 2003 to run a macro in VBA? I am trying to have it so when the user clicks on the cell a popup calander uis displayed for the date to be selected. I tried the code below but nothing happens. Thanks.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x As Variant
If Intersect(Target, Range("B3:B53")) Is Nothing Then Exit Sub
Cancel = True
x = DoCmd.RunMacro("PERSONAL.XLS!OpenCalendar", Type:=1)
If x = False Then Exit Sub
Target.Value = x
End Sub

 

[cmccabe]

I have also tried and nothing happens, but I can run the macro. Thanks.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address <> "$B$3" Then Exit Sub
PERSONAL.XLS!OpenCalendar.Activate
End Sub