I created the code with excel 2003 and transfered it to my new system with
office 2007 enterprise and now the calender will not work here is the code I
use.

Private Sub Calendar1_Click()
FrmProduct.TxtDate.Value = Calendar1.Value
Unload Me
FrmProduct.BtnAdd.SetFocus
End Sub

When the user double clicks TxtDate box on another user form it show this
user form which is a form to select a date from.

I would like it to always highlite the current date and alow the user to
select what date they want.

Good info here on getting the calendar to work:

http://www.rondebruin.nl/calendar.htm

Mike F
"Mekinnik" wrote in message
...
I created the code with excel 2003 and transfered it to my new system with
office 2007 enterprise and now the calender will not work here is the code
I
use.

Private Sub Calendar1_Click()
FrmProduct.TxtDate.Value = Calendar1.Value
Unload Me
FrmProduct.BtnAdd.SetFocus
End Sub

When the user double clicks TxtDate box on another user form it show this
user form which is a form to select a date from.

I would like it to always highlite the current date and alow the user to
select what date they want.