Calendar form

[mikeymay]

I have installed the 'Calendar1' from the toolbox onto a userform.

Somehow I have managed to removed the 'Default' date setting and when the calendar is calle dup it defaults to a date in 2009.

How do I set the default date to todays date?


Thanks

 

[Traveler]

I use this;

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> UserForm_Initialize()
<SPAN style="color:#007F00">' Check if active cell contains a date. If 'yes' show</SPAN>
<SPAN style="color:#007F00">' same date on calendar. If 'no' show today's date.</SPAN>
    <SPAN style="color:#00007F">If</SPAN> IsDate(ActiveCell.Value) <SPAN style="color:#00007F">Then</SPAN>
        Calendar1.Value = DateValue(ActiveCell.Value)
    <SPAN style="color:#00007F">Else</SPAN>
        Calendar1.Value = <SPAN style="color:#00007F">Date</SPAN>
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>

<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

 

[mikeymay]

Do I need to change 'UserForm_Intialize' to 'MyUserFormName_Initialize'?

 

[Norie]

Mikey

No, don't do that.