Private Sub Calendar1_Click()
Dim calVal
calVal = Calendar1.Value
End Sub

--

Regards,
Nigel




"Haarish" wrote in message
...
Guys,

I have added a calendar control to an Excel 2007 worksheet. I am
trying to pick the selected value in the code section with the
calendar_click() function. I havent been able to pick the date part
from the calendar control. Am I doing something wrong? Is there an
easier way to do this?


Thanks in advance.