In diesem Beispiel wird dem ersten Tabellenblatt ein Kontrollkästchen hinzugefügt und dessen Wert mit der Zelle A1 verknüpft.
With Worksheets(1) Set cb = .Shapes.AddFormControl(xlCheckBox, 10, 10, 100, 10) cb.ControlFormat.LinkedCell = "A1" End With