I think you are still in Edit mode
Which excel version do you use ?
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Amanda" wrote in message ...
I have followed Ron's directions, but I can't get a date other than today's
date to appear. I am not able to select any other date using the calendar.
This is the code I am using:
Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.Offset(0, 1).Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Not Application.Intersect(Range("J3"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub
Can someone tell me what I am missing?
Thanks!
Amanda
"Ron de Bruin" wrote:
Try this Olivier
http://www.rondebruin.nl/calendar.htm
--
Regards Ron de Bruin
http://www.rondebruin.nl
"Olivier" wrote in message ...
How can I provide the user with a 'calender pop-up' as in Outlook, where
(s)he can easily select and enter a valid date in a worksheet cell ?
I assume I don't have to create this pop-up from scratch in Excel, as it is
available in Outlook.
Once defined, I would add this function/routine on right_click_mouse event