In the VBA editor, open the Sheet code module for the worksheet on
which the Calendar control resides. Then use code like

Private Sub Calendar1_AfterUpdate()
Range("A1").Value = Me.Calendar1.Value
End Sub

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Fri, 13 Feb 2009 07:24:12 -0800, Jim Lawrence <Jim
wrote:

Can someone tell me if it's possible to populate a date cell by using the
Calendar Control? I want to click in a date-formated cell then have the the
calendar appear. I want to select the date value from the control and
populate the cell. Please help!!!