Hi all, Linked Post: Referencing Check-box I'm trying to count Ticked check-boxes, having used Form Control check-boxes: I've tried lots of different things, but I cannot correctly refer to the checkbox objects. Sub What2() Dim k As Integer, count As Integer For k = 1 To 24 If Sheet1.Shapes("CheckBox " & k).ControlFormat.Value Then count = count + 1 End If Next k Range("A1").Value = count End Sub Can anybody help me correct the above, so that the macro is fit for purpose? Many thanks.

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

How to reference check-boxes to count them

Thread starter Henrybukowski
Start date Sep 12, 2013
Tags

check box multiple tally

Henrybukowski

New Member

Sep 12, 2013

Hi all,

Linked Post: Referencing Check-box

I'm trying to count Ticked check-boxes, having used Form Control check-boxes: I've tried lots of different things, but I cannot correctly refer to the checkbox objects.

Code:

[/COLOR]Sub What2()

Dim k As Integer, count As Integer
    For k = 1 To 24
        If Sheet1.Shapes("CheckBox " & k).ControlFormat.Value Then
               count = count + 1
        End If
    Next k
    Range("A1").Value = count

End Sub[COLOR=#333333]

Can anybody help me correct the above, so that the macro is fit for purpose?

Many thanks.