Hi

If I understand you correct?

Try this
Calendar1.Value = DateSerial(Year(Date), Month(Date), 1)


--
Regards Ron de Bruin
http://www.rondebruin.nl


"ll" wrote in message ups.com...
Hi,
I am working with a form in Excel, and I've been trying to get the
calendar control (11) to fire when only the month and year are
completed, but I cannot find a way.
Currently, I have this code behind the calendar (which comes up from a
button on the form):

=======
Private Sub calendar1_Click()

Calendar1.Day = 1

frmCourseBooking.txtDateTaken.Value = frmCal.Calendar1.Value

Unload frmCal
End Sub
==========
This does work, but it only will work one time: if the "parent" form is
left open and the calendar launch button is clicked again, the calendar
does come up, but the first day of the month isn't selected after the
first time. Basically, I'm just trying to get around having to select
the day by having it in the code. Any help is greatly appreciated.

Thanks,
Louis