Liebe Kollegen,
dieser Code..
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=Cells(1, 1).Width / 2, Top:=Cells(1, 1).Height / 2, Width:=108, Height:= _
19.5).Select

...fügt ein Steuerelement hinzu...
Nun will ich gleich mit dem Erstellen auch DIESE: Parameter auf das Steuerelement übernehmen:
.Width = 10.5
.Height = 13.5

End Sub
Also:
If Forum.Person.Someone.Help = True AND Forum.Person.Someone.ProblemSolved Then
Thanks("Thank you very, very much!")
Solved = True
For Solved = False
Sorry("Oh, can´t you help me?")
'Anfänger :-)
MfG
Joachim H.