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" <(E-Mail Removed)> wrote in message
news:F0180249-707A-4229-B7C1-(E-Mail Removed)...
>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.