大家帮我看看..VBA的 一句添加复选框 并命名,错在哪

With Sheet6.OLEObjects.Add
(ClassType:="Forms.Checkbox.1", Left:=Cells(i, 1).Left, Top:=Cells(i, 1).Top, Height:=12, Width:=12)
.Name = ckname
End With --------------------编程问答-------------------- 提示 对象不支持该属性或方法  但结果没影响

补充：VB ,  多媒体