How to get userform calendar to open at today's date

[Human_doing]

Hi all,

Can anyone please help with the code to make a user form open to today's date? As far as I can work out the below code should open the form when workbook is opened and at today's date but doesn't seem to work could anyone please help?

Private Sub Workbook_Open()
Form.Show
Form.Calendar1.Value = Date
End Sub

 

[Arul.rajesh]

Do you have a "Control" on the Form by the name "calendar1"?
What kind of a control is it a textbox / combobox?
If you do you will have to set the Text/Label/Caption property of the

form.controls("calendar1'").text=date

 

[CharlesChuckieCharles]

Does your FORM have a name?

In the form load procedure

put your

Me.Calendar1.Value = Date

since the focus has been passed to the form

 

[CharlesChuckieCharles]

Does your FORM have a name?

In the form load procedure

put your

Me.Calendar1.Value = Date

since the focus has been passed to the form

Thats the form Activate procedure... sorry