How to access Checkbox from VBA in Excel 2007

Question

When adding a checkbox, how do you access the value from VBA?

• In Excel 2007, on the Developer Ribbon
• Insert, Form Controls, Checkbox
• Rena

Answer 1

One way:

Dim oCheck As Object
Set oCheck = Sheet1.CheckBoxes("chkMyCheck")
MsgBox (oCheck.Value = xlOn)

Edit: here's another method - maybe this one will work for you...

Sub Tester2()
    Dim sh As Shape
    For Each sh In Sheet1.Shapes
        If sh.Type = msoFormControl Then
            If sh.FormControlType = xlCheckBox Then
                 Debug.Print sh.Name & "=" & sh.ControlFormat.Value
            End If
        End If
    Next sh
End Sub