Checkbox must stay checked

I had this code:

Sub ShowMenu1()                        'if userform opened again, check what value of a is a show checkbox accordingly. 
    Check_errors.Value = 1
    Userform1.Show
End Sub

in main module too, that's why it worked at all.