Check Boxes

[rizmomin]

Hello:

Please refer to attached file.
I have check boxes in cell I1:I14
I need a Code which will toggle Check/uncheck all check boxes if check box in cell I17 is clicked.

Let me know if you have any questions.
Thanks.

Riz

[JieJenn]

Assign this macro to your check box 37

Sub CheckUncheck()
Dim ws As Worksheet: Set ws = ActiveSheet
Dim ctrl As Shape
Dim lChkBox As Integer

lChkBox = IIf(ws.Shapes("Check Box 37").ControlFormat.Value = 1, 1, -4146)

For Each ctrl In ws.Shapes
    If ctrl.Name <> "Check Box 37" Then
        ctrl.ControlFormat.Value = lChkBox
    End If
Next ctrl

End Sub

[MickG]

Try this:-

Sub ListFilesByDate()
Dim shp As Object
With Worksheets("sheet1")
  For Each shp In .Shapes
    If shp.Type = msoFormControl Then
          If shp.FormControlType = xlCheckBox Then
               If Not shp.Name = "Check Box 37" Then
                  shp.OLEFormat.Object.Value = ActiveSheet.Shapes("Check Box 37").OLEFormat.Object.Value
                End If
         End If
    End If
 Next
End With
End Sub

[rizmomin]

Hi JieJenn:

I have not done check boxes in the past as much.
i am having problem assigning/creating check box and name as "Check Box 37"
Please guide little further.
Thanks a lot
Riz

[rizmomin]

Hi JieJeen:

Thanks a lot.
Will test more and let you know if further help is needed.
Thanks.
Riz

[JieJenn]

I thought the CheckBox in Cell I17 is named Check Box 37

[rizmomin]

Hi MickG:

Got it, thanks a lot.
Will test more and let you know if further help is needed.
Thanks.
Riz




Riz