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.