Bitte nochmals um Hilfe.
Warum funktioniert das Makro nicht?
Muß ich zwischen Check Box und &x eine Leerstelle einfügen, wie macht man das?
Sub Test()
Anzahl_Box = 10
'Dim x
For x = 1 To Anzahl_Box
ActiveSheets.Shapes("Check Box" & x) = True
With Selection
.Value = xlOff
.LinkedCell = ""
.Display3DShading = False
End With
Next x
End Sub