'Tabelle11
Option Explicit
 
Sub CheckBox_Click()
   
  If TypeName(Application.Caller) <> "String" Then Exit Sub
   
  Dim shp As Excel.Shape
   
  On Error Resume Next
  Set shp = Shapes(Application.Caller)
  On Error GoTo 0
   
  If shp Is Nothing Then Exit Sub
  If shp.Type <> msoFormControl Then Exit Sub
  If shp.FormControlType <> xlCheckBox Then Exit Sub
   
  'Bsp: shp.Name = "12.1"
  'Tabelle11.Shapes("Schloss" & shp.Name).Visible = True
   
End Sub