This is similar to Siddharth's but adds the ControlFormat
property of the Shape
. ControlFormat
gets you the Intellisense for the CheckBox
, in this case Value
:
Sub CheckBox1_Click()
Dim chk As Shape
Set chk = ActiveSheet.Shapes(Application.Caller)
With chk.ControlFormat
If .Value = True Then
MsgBox "true"
Else
MsgBox "false"
End If
End With
End Sub