get state of checkbox on worksheet

I need help to get the state (xlon or xloff) of check boxes on a worksheet.
i have tried the following but unable to get it to work.

Any solutions would be much apprecaited
please see sample workbook attached.

Sub showvalue()

Dim myshape As Shape

For Each myshape In ActiveSheet.Shapes
    If myshape.Value = xlOn Then
        ' do what i want here
        MsgBox myshape.Name & " is on"
    End If
Next

End Sub