In the form's initialize event have it set the calendar (Calendar1 inthis case) to the current date:Private Sub UserForm_Initialize()Me.Calendar1.Value = DateEnd Sub