Option Explicit
Sub AlleAktivierenOderDeaktivieren()
Dim objControl As Shape
Dim strControl As String
' Aktuelles Steuerelement...
strControl = Application.Caller
' Alle anderen durchlaufen...
For Each objControl In ActiveSheet.Shapes
If Not objControl.Type <> msoFormControl And _
objControl.Name <> strControl Then
If Not objControl.FormControlType <> xlCheckBox Then
objControl.ControlFormat.Value = ActiveSheet.Shapes(strControl) _
.ControlFormat.Value
End If
End If
Next
End Sub