Private Sub UserForm_Initialize()
CommandButton1.Enabled = False
End Sub
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then CommandButton1.Enabled = True Else CommandButton1.Enabled = False
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then CommandButton1.Enabled = True Else CommandButton1.Enabled = False
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then CommandButton1.Enabled = True Else CommandButton1.Enabled = False
End Sub
Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then CommandButton1.Enabled = True Else CommandButton1.Enabled = False
End Sub