Makes CheckBox control appear with a check mark:
Sub value() UserForm1.CheckBox1.Value = True End Sub