intializing a userform

[lior03]

hello
i am using a calendar userform.i want the userform
open on january 1900.could it be done?

[Jacob Hilderbrand]

Try this:

Option Explicit
 
Private Sub UserForm_Initialize()
    Me.Calendar1.Value = DateSerial(1900, 1, 1)
End Sub