Option Explicit
Public Sub Button_Click()
Const CAP_STRING As String = "CheckBoxes_"
Dim objCheckBox As Excel.CheckBox
Dim lngBoxOnOff As Long
With ActiveSheet
With .Buttons(Application.Caller)
If .Caption = CAP_STRING & "Inaktiv" Then
.Caption = CAP_STRING & "Aktiv"
.Font.Color = vbBlue
lngBoxOnOff = xlOn
Else
.Caption = CAP_STRING & "Inaktiv"
.Font.Color = vbRed
lngBoxOnOff = xlOff
End If
End With
For Each objCheckBox In .CheckBoxes
objCheckBox.Value = lngBoxOnOff
Next
End With
End Sub