Place this code in a general module and assign it to your command button

Sub ShowCalendar()
Sheets("Sheet1").DrawingObjects("Calendar1").Visib le = True
End Sub

Place this code in the relevant worksheet module

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub

--

XL2003
Regards

William



"icebreaker914" wrote in message
...
I WOULD LIKE TO PROGRAM A COMMAND BUTTON TO PULL UP A CALENDAR CONTROL.
ONCE
DATE IS SELECTED, HAVE CALENDAR HIDDEN. CAN ANYONE HELP? THANKS IN
ADVANCE
FOR THE HELP!
--
icebreaker914