kontrollkästchen in tabelle via ole manipulieren

habe dafür den beitrag https://www.herber.de/xlFAQ/texte/018098h.htm:

Private Sub cmdChb_Click()
Dim oOle As OLEObject
For Each oOle In OLEObjects
If TypeName(oOle.Object) = "CheckBox" Then
MsgBox oOle.Name & ": " & oOle.Object.Value
End If
Next oOle
End Sub

etwas abgeändert.

Private Sub cmdChb_Click()
Dim oOle As OLEObject
For Each oOle In OLEObjects
oOle.Object.Value=true
Next oOle
Msgbox "kontrollausgabe"
End Sub

wenn ich die routine ohne msgbox starte werden die haken auch gesetzt. ergänze ich msgbox, dann hängt sich der rechner auf !!

liegt hier eventuell ein grundlegender fehler von mir vor ??

vielen dank im voraus.

gruß Jan :-)