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