Enabling a Button

[mhenk]

I have a command button that I only want to enable if one (or more) of 6 different check boxes is checked. How would I go about doing this?

 

[SteveO59L]

Use the Linked Cell Property, to toggle the value of a cell true/false.

Then use a countif for number of true values >1 to enable the button

 

[mtb'r]

Yeah, what Steve059L said...

Here is an example of what the code could look like (assuming linked cells are in column J):

Sub Macro1()
    c = Application.WorksheetFunction.CountIf(Range("J:J"), "TRUE")
    If c >= 1 Then
        ActiveSheet.Shapes("Button 1").Select
        Selection.OnAction = "Macro2"
        Selection.Font.ColorIndex = 0
    Else
        ActiveSheet.Shapes("Button 1").Select
        Selection.OnAction = ""
        Selection.Font.ColorIndex = 15
    End If
    Range("a1").Activate
End Sub