Checkboxes to enable button

Hey community,

First time posting here and its been a couple days trying to figure this macro out. Before flaming, I'm pretty new at VBA/Macros and have done extensive research. I have a series of 4 checkboxes that needs to be checked off before a button is enabled to be pushed. For some reason I cant find the resolution or make this work.

This is what I have so far:

Private Sub CheckBox1_Click()
    If CheckBox1 Then
    ActiveSheet.Button4.Enabled = True
 Else
    If Not CheckBox2 And Not CheckBox3 Then
    ActiveSheet.Button4.Enabled = False
 End If
 End Sub
 Private Sub CheckBox2_Click()
    If CheckBox1 Then
    ActiveSheet.Button4.Enabled = True
 Else
    If Not CheckBox3 And Not CheckBox4 Then
    ActiveSheet.Button4.Enabled = False
 End If
 End Sub
 Private Sub CheckBox3_Click()
    If CheckBox1 Then
    ActiveSheet.Button4.Enabled = True
 Else
    If Not CheckBox4 And Not CheckBox1 Then
    ActiveSheet.Button4.Enabled = False
 End If
 End Sub
 Private Sub CheckBox4_Click()
    If CheckBox1 Then
    ActiveSheet.Button4.Enabled = True
 Else
    If Not CheckBox1 And Not CheckBox2 Then
    ActiveSheet.Button4.Enabled = False
 End If
 End Sub

With that...Flame suit on!

Thanks for your help.

-Ryan

there wont be any flaming here
is this in a form or on worksheet itself?

also please put code in your post
3. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the [#] button at the top of the post window (if you are editing an existing post, press Go Advanced to see the [#] button). The result will appear like this in the post window:


see attached example of checkbox checking before enabling commandbutton in a Form

ps did not put any code to disable the button once you uncheck a checkbox
so once its enabled..it stays that way

Thanks for the pointers. Let me try it on this point lol.


This would be on a worksheet itself. I am trying to keep a button disabled, until my associates have checkboxed all 4 on the worksheet.

Private Sub CheckBox1_Click()
    If CheckBox1 Then
    ActiveSheet.Button4.Enabled = True
 Else
    If Not CheckBox2 And Not CheckBox3 Then
    ActiveSheet.Button4.Enabled = False
 End If
 End Sub
 Private Sub CheckBox2_Click()
    If CheckBox1 Then
    ActiveSheet.Button4.Enabled = True
 Else
    If Not CheckBox3 And Not CheckBox4 Then
    ActiveSheet.Button4.Enabled = False
 End If
 End Sub
 Private Sub CheckBox3_Click()
    If CheckBox1 Then
    ActiveSheet.Button4.Enabled = True
 Else
    If Not CheckBox4 And Not CheckBox1 Then
    ActiveSheet.Button4.Enabled = False
 End If
 End Sub
 Private Sub CheckBox4_Click()
    If CheckBox1 Then
    ActiveSheet.Button4.Enabled = True
 Else
    If Not CheckBox1 And Not CheckBox2 Then
    ActiveSheet.Button4.Enabled = False
 End If
 End Sub

Sub SetCommandButton()
With ActiveSheet
    .CommandButton1.Enabled = .CheckBox1.Value And CheckBox2.Value And CheckBox3.Value And .CheckBox4.Value
End With
End Sub

Have each of your CheckBox_Click events call that sub.

using mikes suggestion