How about:

Private Sub UserForm_Activate()
CalendarControl.Value = Date
End Sub

or

Private Sub UserForm_Initialize()
CalendarControl.Value = Date
End Sub


RBS


"Patrick Simonds" wrote in message
...
I am using Calendar Control 10 on a UserForm, but can not figure out how
to
have the current date come up on the calendar when it opens. I have tried
setting ValueIsNull to both False and True but I still get the last date
that was selected by the user.