Setting todays date in Calendar control


Posted by Martin Nielson on November 19, 2000 12:40 PM

Is there a way to cause to current date to be set on the calendar control (Excel 97) automatically when the worksheet is "loaded" (or whatever). I have added code to set it upon a doubleclick event on the calendar itself after the worksheet has come up, but it sure seems that there must be a better way to do this.



Posted by Joe on November 20, 2000 7:28 AM

Martin,
I'm no expert on the calendar control, but this works for me. In the code window for the userform which contains the calendar, use something like:

Private Sub UserForm_Initialize()
Calendar1.Today
End Sub

HTH
Joe